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: “. LABEL OOOOQOO0O0OPRNT O01771057USER#SITE $3 EXECUTE cOPY /SITE 
FILE: SNOBOL/ SITE FRI 4/45/77 12305PM 
10000 4 5 R&er LIST ad 
20000 ¥ 85500 SNOBOL3 SYSTEM, 
30000 % 
40000 % WRITTEN BY? | 
50000 % JOHN Me CHAMBERS 
60000 % DEPT, OF COMPUTER SCIENCES 
7Q000 % UNTVERSITY Of WESCONSIN 
BO00O % 1210 Ww. DAYTON ST. 
90000 % MADISONs WISCONSIN 53706 
4100000 %- , 
110000 % USERS MANUAL AVAILABLE FROM ABOVE ADDRESS. 
120000 % Si 
A BOO00 RO re 
140000 % DATA REPRESENTATION? 
150000 % 
ae 160000 % TC TAKE ADVANTAGE OF THE CHARACTER MQDE STRING COMPARE AND MOVE 
170000 % INSTRUCTIONSe STRINGS ARE STORED AS CONSECUTIVE CHARS» PRECEDED BY A 
180000 % 3=CHAR BACKePOINTER TO THE SYMBOL TABLE. THIS POINTER CONSISTS OF AN 
190000 % "ILLEGAL CHARACTER” FOLLOWED BY 2 CHARS (12 BITS) GIVING A SYMBOL 
200000 ¥ TABLE LOCATION (SEE DESCRIPTION OF SYMBTABL), STRINGS ARE STORED IN 
210000 % ROWS OF THE ARRAY DATAL#ys«], 
5 : _ 220000 = 
230000 % 

260000 ¥ = DUE TO THE SIZE LIMITATION ON. ALGOL ARRAYS» AND THE FACT THAT IT 
250000 % WAS FELT UNNDESIRABLE TO BREAK UP A STRINGs THERE IS A LIMITATION TO 
260000 % THE SIZe OF A STRING""8181 CHARS», TO BE EXACTe IF THIS LIMIT 1S 

270000 % EXCEEDED»: THE PROCEOURE STRING WILL PRINT A DIAGNOSTIC “AND SET THE 
280000 ® FLAG DEATH TO TRUE» TERMINATING THE PROGRAM, 
290000 % A STRING IS IDENTIFIED BY A 34"B8IT "DESCRIPTORS IF D Is SUCH A 
300000 ¥ DESCRIPTORs THE FOLLOWING FIELDS LOCATE THE STRING (SEE DEFINE 
310000 % DECLARATIONS)! 
320000 &% 0.53 SIZe OF _STRIN 
330000 ¥% DR? STRING IS IN BATALD, Raw] 
7 340000 & DCH! FIRST CHAR OF STRING» RELATIVE TO DATACDsR20] 
350000 ¥ IN OTHER WORDS» THE STRING CONSISTS OF 0+S CHARACTERSs STARTING DeC 
3860000 % CHARS AFTER DATALO.RD,W). 
— 370000 & NOTE THATs SINCE ALL STRINGS ARE PRECEDED BY A 3*CHAR POINTER 
"380000 % TO SYMBTABL» THE VALUE OF THE CH FIELD MUST BF 2 3e THIS FACT 
390000 % IS USED TO HISTINGUISH CELLS WHICH HAVE. "MISSING" VALUES (SUCH 
_ #00000 % AS THE VALUF PARTS FOR STRINGS WHICH HAVE NOT BEEN ASSIGNED A 
410000 % valued. THUS» IF THE CH FIELD IS < 3s THERE IS NO STRING ATTACHED, 
420000 % AND THE VALUE TS CONSIDERED TO BE NULL. THE S FIELD SHOULD BE 0 
430000 % IN SUCH CASFS, 
440000 & ~ SEVERAL "BUGS" HAVE BEEN FOUND TO BE CAUSED BY NOT RECOGNIZING 
430000 % THAT W.STRING DESCRIPTOR MAY NOT POINT TO A STRING@*THIS CAN BE 
460000 % AVOTNEB BY TESTING TO SEE IF THE CH FIELD IS 2 3, IF SOs THE 
470000 & STRING ExISTS3 IF NOTs THERE IS NO STRING» AND THE VALYE IS NULL. 
480000 % 
. 490000 % . 
500000 % 
510000 * 
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$30000 BEGIN 


S40000 INTEGER COMMONS % THESE BITS ARE CURRENTLY RELEVANT? 
550000 -¥% £47811 = + TURNS ON TRACING FOR ALL VARIABLES, 
560000 % £46t11 3 1 CAUSES A COMPLETE DUMP AT THE END OF RUN, 
570000 % f45%1) = 1 SAYS THAT MODEC™INFORM") OR *INFORM IS TO TURN ON 
580000 $§% SYSTEM DEBUGGING AIDS, 
590000 DEFINE 
600000 CRlLASiai#ts % CHAR WITH IN WORD OF STRING DESCRIPTOR 
(610000. ClBh6t6l#» 
620000 C2aC1 21618» 
630000. C3sl{8i61#» 
; 640000 —CaBl oases 
680000 Chal 301618» 
660000 CORL36261#» 
670000 = CP REG2I6IHs 
680000 CHel352131)#, % CHAR OF DATAC*s*3 ROW OF STRING DESCRIPTOR 
690000 COUDTE Gar 24842t6t» % MOVE QUOTE TO CHAR 4 
700000 CQUOTESS" "7 30842t6l#» % MOVE QUOTE TO CHAR 5 
710000 CONCREL 30243251» % MOVE TO R FIELD 
720000 CONCSHL178358i3}#» % MOVE TO S FIELD 
730000 CONCWHE35¢3R¢10]#» % MOVE TO W FIELD 
740000  —- CONTROLPOINTSINSTCINSTRUCTIsNEARPOINT#HS 
730000 .DATASIZE=31#s % UPPER BOUND ON FIRST SUBSCRIPT OF DATAL es] 
760000 = DISKRECOROsRECORD#, 
770000 Ps FALSE #» 
780000 FIRST CHARCFIRSTCHARL)SDATACCFIRSTCHARL). Re CFIRSTCHARI aN Ie 
790000  —ss CFIRSTCHARL)oC#, 
800000 INTRINSMAXS1 7H, % MAX # INTRINSIC FCTS OF SAME SIZE 
810000 MAXLABELLIMIT={5#s  % MAX NUMBER. OF LABEL LIMITS FOR DEBUGGING 
- 820000  MAXLEVEL={00#» % MAXIMUM ALLOWED DEPTH OF FUNCTION CALLS 
830000 MAXSUSPENDREASONS3#s % NUMBER DIFFERENT REASONS FOR SUSPENODING, 
840000 MNEMMAXS208, 
830000 NUMCONTROLCARDS#21#,s % NUMBER OF CONTROL CARDS IMPLEMENTED} 
860000 & MUST BE CKANGED IF NEW CONTROL CARDS ARE 
870000 % a - TO BE IMPLEMENTED 
880000  R=f3035) 4, % DATAL*s*)] ROW OF STRING DESCRIPTOR 
~B90000 RCH#L30818)#»s % R» Ws AND C FIELDS 
900000 SaCi7t131#s % SIZE OF STRING 
910000 SEGMENT = LABEL DUMMYS#s % FOR FORCING NEW SEGMENT. 
920000 STACKSIZESS0#» % SIZE OF INTERPRETER STACK ARRAYS 
30000 STRINGLOCCSTRINGLOCI JeCSTRINGLOG} Sat IRSTCHARCSTRINGLOCL 2» 
940000. Te TRUE #* oe 
930000 TEMPEAASs % 
960000 TEMP SABHs % 
(970000 TEMP2=ACHs * 
980000 ss TEMPCELCTEMPCEL1) = TEMPCELL#* % PARAMETER NO LONGER IN USE 
990000 — VERSION = 3, -O#s % VERSION NUMBER? | 
~. 2000000. & 2,0 18 THE REWRITTEN COMPILER, 
1010000 % 2.1 INCLUDES FATAL ERROR SUSPENSIONS WHEN DEBUGGING. 
1020000 % 2.2 HAS MOST SYSTEM DEBUGGING AIDS CHANGED TO COMMENTS, 
1030000 & 3,0 HAS THE ARRAY USEDCELLO#)] DELETED CCHANGES LIBRARY FILES). 
1040000 WET3SELOHS % WORD WITHIN DATAC#s*] ROW OF STRING DESCRIPTOR 
1050000 DEFINE ee 
1060000 = ABORT = GD TO ABORTIONS #, % FATAL SYSTEM ERROR, 
1070000 SETLIMITFLAG = ALIMITEXISTS ¢ 
1080000 CPULIMITFXISTS OR 
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1090000. 


1100000 
1110000 
1120000 


1140000 
1150000 
1160000 
1170000 


1180000. 


1190000 


1200000 
1240000 | 


1220000 
1230000 


1240000 


1250000 


1260000 
4270000 


1280000 
1290000 


1300000 _ 


1310000 
1320000 


_ 1330000 


1340000 
1350000 


1360000 


1370000 


1380000. 
1390000 


1400000 
1410000 


1420000 


1430000 
1440000 


1450000 


1460000 
1470000 


_. 1480000. 


1490000 
1500000 | 


1510000 


1520000 
1530000 


. 1940000 

1850000 
1560000 
15870000) 


1580000 
1590000 
1600000 


1610000 — 


- 4620000 
4630000. 


“4640000 


1650000 


1130000 | 


IQLIMITEXISTS OR 
RULELIMITEXISTS OR 
CNEBUGGING AND 
CDEBUGRULELIMITEXISTS OR 
NLABELLIMIT 2 0 
ny 
#3 
BOOLEAN 
ALIMITEXISTSs» % THERE IS A LIMIT TO CHECK AT START OF INSTS.» 
Bi» % TEMPORARY BOOLEAN "REGISTER" 
CONVERTFs | % DECK IS 026 CHAR SET 
CONVERTSTRINGS» % CONVERT 3600 1/70 STRINGS 
CPULIMITEXISTS» % 
DATACOMF, % DATA Com UNIT IN USE 
DEATHS _& FATAL ERROR HAS OCCURRED 
DEBUGGING» % DEBUG MODE IN USE 
DEBUGRULELIMITEXISTS» — 
DMPDATAs | % EXECUTE WRITEDATA AT END RUN 
DMPSTe % EXECUTE WRITEST COUMP SyMee TABLE) AT END OF RUN 
DMPSTRe» % EXECUTE STRINGDUMP AT END GF RUN 
DUMPALL» | % TRUE IF COMPLETE DUMP TO BE DONE AT EQN 
ERROUMP»s % DUMP IF FATAL PROGRAM ERROR 
EXECUTED % SET FALSE IF FATAL ERROR DURING COMPILATION 
INFORMs — % PRINT SYSTEM DEBUGGING MESSAGES 
ICLIMITEXISTSs» % 
LOADFe % LOADER IS BEING EXECUTED 
PRINTMESSAGFSs % PRINT DIAGNOSTIC CWARNING) MESSAGES, 
RESULT» % SUCCESS/FAIL FLAG FOR INTERPRETER 
RULELIMITEX?STSs% 
—SYSTEMDEBUGGINGs% TRUE IF COMMON,(C4541) 3 1 
SYSTEMERROR>» % FATAL ERROR BY SNOBOL SYSTEM, NOT PROGRAM 
TRACFALLS % TRACE EVERY VARIABLE WITHOUT I/O USE 
BOOLEAN. ARRAY 
SUSPENDREASONCOSMAXSUSPENDREASON]s & REASONS FOR SUSPENDING PROGRAM; 
% O: SUSPEND() WAS EXECUTED 
% i? RULE LIMIT WAS HIT 
% 2? LABEL LIMIT WAS HIT 
x 3: FATAL ERROR IN PROGRAM 
7 USEOROWLOSDATASIZET) % DATACI##] IS YN USE 
INTEGER 
ANCHORMODE» % 2 UNANCHORED? 31 ANCHORED 
ANCHORSIZEs % FOR ANCHORED MODEs SIZE OF INITIAL SEGMENT 
DCSIZE» % SIZE OF LAST INPUT FROM DCREAN 
DEBUGRULELIMITs 
DIVIDEMODEs | % 0: ROUNDS 1% TRUNCATION’ 2: INTEGER 
GCS. % NUMBER OF GARBAGE COLLECTOR CALLS 
Ts 
Tle 2s & TEMPORARY INTEGER "REGISTERS", 
Ja 
LEVEL» % LEVEL (OR DEPTH) OF RECURSION OF THE INTERPRETER 
LISTSPACES» — ‘% NUMBER OF BLANK LINES BETWEEN LINES OF LISTING 
LOADERLEVEL» % LEVEL OF RECURSION IN LOADER 
MAXINSTSIZE> % SIZE OF LARGEST PROGRAM SEGMENT CIN CHARS) 
NLABELLIMIT, % NUMBER OF LABEL LIMITS SET AT LAST SUSPENSION 
PARENCOUNTs % DEPTH IN PARENTHESTS NESTING (COMPILE AND SCAN) 
RW» % NEW STRINGS COME FROM DATALRWe*) CSEE STRING) 
ood «. * 8 
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1660000 


1670000 
1680000 
1690000 


- £7900000 


4710000 


_ 4720000. 
1730000 


1740000 
1750000 


1760000 | 


1770000 
1780000 


1790000 


1800000 


1810000 


1820000 
1830000 
1840000 


~ 1850000 


1860000 


1870000 © 


48680000 
1890000 


~.1900000 | 


1910000 
1920000 
1930000 


1940000 — 
1950000 
_1960000— 

1970000 


1980000 
1990000 


2000000 
2010000 


2020000 


cry er 


2040000 


2050000 
2060000 


~ 2070000 
2080000 
2090000 
2100000 


— 2110000 © 


2120000 
2130000 


—. 2460000- 


2150000 
2160000 
2170000. 
2180000. 
21490000 
2200000 


~ 2210000 


2220000 


ot ami . . 


TEMPROW, 


% ROW OF SYMB TABLE GIVING TEMP CELLS 
UNITS % USED BY I/0 ROUTINES==FILE NUMBER 
INTEGER ARRAY 
CONVERTVALs ‘% FOR CHAR SET CONVERSIONS 
DOTTYPE, % PARTITIONS CHARS IN INTERNAL REP+ OF ARITH» 
OPLEVEL(O%631» % PRECEDENCE LEVEL OF ARITH OPS 
DPNTRe % POINTER TO NEXT AVAILABLE CHAR IN DATALI¢#) 
NOTMOVEDrOSDATASIZEJ]s % POINTS To FIRST CHAR MOVED BY LAST CALL 
% OF GARBAGE COLLECTOR. 
MONTHSE 18121»  % NUMBER OF DAYS IN EACH MONTH 
RULESCORMAXLEVEL]3 & # RULES EXECUTED AT VARIOUS LEVELS 
REAL 


CPULIMIT» % LIMIT TO CPU TIME IN SECONDS, 
GCTIMECPs % CPU TIME SPENT COLLECTING GARBAGE 
GCTIMEIOs % 1/0 TIME SPENT COLLECTING GARBAGE 
TOLIMITs % LIMIT TO 1/0 TIME IN SECONDS, 

~RANDNO? % NUMBER FOR  RANF. FUNCTION 
RULELIMITs % LIMIT TO NUMBER OF RULES EXECUTED. 
TEENYNEGS R= OCT3777777777777777 

ALPHA 
AAsABe ACs % TEMPORARY ALPHA "REGISTERS" 
ARROWs ae et 
BLANK» 4 4 woe 
BLANKS» aa ft " €8 BLANKS) 
COLON» Xe wee 
COMMAs %= ," 
CRLF» 2m "Seen 
EQSIGNs S 2 "EN 
QMARK» % TLLEGAL CHAR 
QUOTE>s mee Zig vey. 
PRINTLOC, © % SYMBOL TABLE LOCATION OF PRINT (SEE CODE 
+A . % FOR SYSPOT IN SNBLOUT.) 

SLASHs ‘4 = ws 

STARs Zs tat 

“STOPPER? % = BLANK & QUOTE & @MARK CFOR ENDING SCANS,) 
ALPHA ARRAY — 

BUFFEREO? 1442 % USED BY COMPILER TO HOLO NEXT INPUT CARD 

BUFOUTLOI161» % FOR BUILDING PRINTER OUTPUT MESSAGES, 

COOFTO810221» 

—CONTROLCAROPOSNUMCONTROLCARDSJ» % NAMES OF CONTROL CARDS 
DATALOIDATASIZE20%1022)5 % STRING AND PROGRAM STORAGE AREA 
INTRINSFCTLC3E7T*SOSINTRINSMAX)» % NAMES OF INTRINSIC FUNCTION, 
INTRYNSNOXC 327249 INTRINSMAX]» % INDICES OF INTRINSIC FUNCTIONS» 
ae area aera oa * SYMBOL TABLE LOCATIONS OF 

LABEL LIMITS OURING DEBUGGING 

HNENONTCEOS 1s 03MNEMHAX3s % VARIOUS MNEMONIC COMMANDS AND WORDS 

 NEXTRECORD(014520917]+ % HOLOS RECORDS FOR LOOK=TYPE STRINGS 

- SCRATCHLO81022 1+ % TEMPORARY STRING ARRAY | 
WORDSL0130)3— % VARTOUS ALPHANUMERIC STRINGS 

MONTTOR INTOVRe EXPOVRse INDEXs FLAGS 
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Oe A eat 
x THE SYMBOL TABLE? 
‘XS EVERY DATA OBJECT (STRINGS» LITERAL» FUNCTION» LABEL) REQUIRES 

% AN ENTRY IN THE SYMBOL TABLE. THIS TABLE CONSISTS OF THE FOLLOWING 


om ~tee, ‘ 


: ee ee ee Be on ot He cee 


moors 6 


asleess formes, dnc. 4 Se 
bee at i : ae ; 


| 
fl 


e@ee72ee8e¢ @ 


2890000 
2810000 


2820000 


_ 2830000 
2840000 
2850000 
2860000 


“2870000 
2880000 


2890000 ? 


2900000 
2910000 


2930000 
2940000 


2950000 3 


2960000 


2970000 
2980000 


2990000 
300900000 


3010000 | 


3020000 


3030000 
3040000. 


3050000 
3060000 
3070000 


3080000. 
3090000. 


3100000 


3110000— 


3120000 
3130000 


3140000 


3150000 


3160000 % 
3170000 


3180000 
3190000 


- 3200000 
3210000 
3220000. 
— 3230000 


3240000 
3250000 


3300000 


3310000 


3320000 
3330000 
_ 3340000 
3380000 
3360000 


IN 
% 
% 
% 
% 
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2920000 & 


3260000 
3270000 

_ 3280000 
3290000 


x 
% 
x 
x 
% 
% 
% 
% 
% 
x 
% 
x 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
z 
% 
% 
% 
% 
& 
% 
x 
% 
z 
x 
3 
% 
x 
% 
% 
% 
% 
% 
% 
% 
% 
x 
% 
% 
x 
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NTEGER ARRA 
NEXT CELL TOtSTRMAX)5 % HEADS OF AVAILABLE SPACE LISTS. 


A SYMBOL TABLE ENTRY CONSISTS OF THREE WORDS**ONE WORD 
FROM FACH OF THE THREE ARRAYS, A “SYMBOL TABLE. ADDRESS" IS A 


12eBIT INTEGER CONSISTING OF TWO FIELDS CALLED STR AND STW, 


THE THREE WORDS ASSOCIATED WITH AN ADDRESS P CAN BE REFERRED 
TO IN THE FOLLOWING WAYS: 


—NAMECP] = NAMTABLEP,STR»P,STW] TS THE NAME OF THE OBJECT 
VALUCP) = VALTABLEP,STRsP.STW] IS THE VALUE OF THE OBVECT, 
TOCP] = FOTABLCP.STRsP,.STW] IS THE 1/0 USE OF THE OBJECT 


NORMALLY» THe FIRST FORM GIVEN CSINGLY SUBSCRIPTED) IS USEDS THE 
DOUBLY*SUBSCRIPTED FORMS ARE USED ONLY WHEN THE TwO SUBSCRIPTS 
HAVE BEEN CALCULATED SEPARATELY, 


THE SYMBOL TABLE IS A SCATTERED@ENTRY, LINKED=LIST TYPE OF TABLE. 


ENTRIES ARE SCATTERED INTO THE “SCATTER AREAS"s WHICH ARE WORDS © TO 
SCATTERSIZE+15 OF ROWS O TO SCATTERNO, THAT ISs THE IsJ WORDS 


_OF THE SYMBOL TABLE CNAMTABLEI2J]» VALTABLOEIsJ]» IOTABLECTIeJ}) 


ARE IN THE SCATTER AREA IFt 
0 € L$ SCATTERNO 
0 $ J $ SCATTERSIZE4+15 


“WORD 090 YS NOT INCLUDEDS IT IS A “"NON*@CELL™ WHICH SHOULD ALWAYS 


BE FILLED WITH ZEROES. THE REASON FOR THE "415% IS THAT THERE 
ARE REALLY TwO SCATTER AREAS#=ONE FOR LITERALS AND ONE FOR ALL 


“OTHER TYPES OF DATA OpvecTS. THIS IS TO KEEP THE LENGTH OF 
LISTS THAT MUST BE SCANNED AT RUN TIME CFOR INDIRECTIONs CREATING 


NEW FUNCTIONS» ETC.) AS SMALL AS POSSIBLE, LITERALS ARE SCATTERED 
INTO THE [SCATTERSIZEs SCATTERSIZE#15} PART OF EACH ROWs AND THE 


COsSCATTERSIZE) PART IS FOR OTHER TYPES OF OBYECTS. THE PART 
OF THE SYMBOL TABLE OUTSIDE OF THE SCATTER AREAS IS INITIALIZED 


AS AVAILABLE SPACE LISTS CONE PER ROWs THE TOP ADDRESS GIVEN BY 
NEXTCELLEROW)). WHEN SEVERAL ENTRIES SCATTER INTO THE SAME 


LOCATION» A LINKED LIST IS FORMED INTO THE PART OF THE ROW THAT 
IS OUTSIDE THE SCATTER AREAe LINKS THROUGH THESE LISTS ARE IN 
THE LINK FIELD OF THE NAME PART CNAMECP)). 


THE FOLLOWING FIELDS ARE USED IN A SYMBOL TABLE ENTRY? 
NAMECPI].TYPF IS THE TYPE OF THE ENTRY® 
0 ® NAMED STRING OR TEMPORARY CELLs 
$8 LITERAL 
2 2 FUNCTION 
3.= LABEL (CODE SEGMENT) 
NAMEEP] AND. GARBAGE COLLECTORe £381) 1S— USED BY CHECKSYMBTABL,. 
NAMECP3,04293 1S UNUSED, 


 NAMETPISLINK IS THE LINK TO THE NEXT ENTRY THAT HAD THE SAME 


LOCATION IN THE SCATTER AREA, A ZERO LINK IS END*OF*LIST, 
FOR TEMPORARY CELLS» THE LINK SHOULD BE ZERO, 
_NAMECPY,LOC POINTS TO THE NAME OF THE OBJECT CIN DATAL#e*)), 
FOR LITERALS» THIS FIELD IS ZERO, 
VALUCP],C194] = 1 FOR PROGRAM" DEFINED. FUNCTIONSs OTHERWISE 
Ty SHOULN BE ZERO, 
VALUCPI,.0£2%43 IS UNUSED, 
VALUCPI],TOUSE INOICATES THE 1/0 USEs AND HAS TWO SUBFIELDS: 
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2230000 ¥ THREE ARRAYS AND ASSOCIATED MACROS! 


2240000 % 
2250000 DEFINE 
2260000 NAMEENAME1} # NAMTABLECNAME1) ¢STRaCNAMEL).STW) fe 
2270000 VALUCVALUL] = VALTABLECVALUL) «STReCVALUL).STW] #> 
2280000 TOCTOL] Ss INTABLE CIOL) STReC1O1¢STW) #> 
2290000 STRMAX = 15 #» % MAX FIRST SUBSCRIPT TO SYMB TABLEs 
2300000 STWMAX = 255 #3 % MAX SECOND SUBSCRIPT TO SYMB TABLE. 
2310000 ALPHA ARRAY 
_ 2320000, NAMTABL » 
2330000 VALTABL » 
2340000 TOTABLIO?:STRMAXsO3STWMAXI3 
2350000 % ~~ 
2360000 : SOME MORE VARIABLES ASSOCIATED WITH THE SYMBOL TABLE ARE? 
2370000 ¥ 
2380000 OaT ANE . 
2390000 COYCLE@L9O8 443418» % MOVE TO CYCLE FIELD 
2400000. CFILNOSES#Aar4aye> % MOVE TO FILNG FIELD 
2410000 CINUSERC3tG7 3134s % 
2420000 CIOTYPEs(14:4533]%, % MOVE TO IOTYPE FIELD 
2430000 CIQUSES( 324632] 4s 
2440000 CLINK#(523621218, % MOVE TO LINK FIELD 
- 2450000 CONCSTR = (3624434) #, : 
2460000 COUTUSESE4ta7ztyiks % 
2470000. CYCLEZ(914]#» % NUMBER TIMES FILE LOCATION USED 
2480000 FILNO=(524)#» % INDEX OF ASSOCIATED FILE 
2490000 INUSESC381) 4» % = 1 IF INPUT STRING 
2500000 INTYPEsC14t3a)#, % TYPE OF I/0 USAGE! 
2810000 % 0: VALUE INPUT. OUTPUT 
2520000. x. 0 TLLEGAL ILLEGAL 
2530000 x t 1/0 1/0 
2540000 % 2 LoaK TRACE 
2550000 % 3 TELETYPE TELETYPE 
2560000 & 4 ILLEGAL ILLEGAL 
2570000 Set 5 ILLEGAL SYSPOT 
2580000 % : 
2890000 = 1OUSE=E312) 25 % YNUSE AND OQUTUSE FIELDS COMBINED. 
2600000 LINK=(5812) #9 % LIST LINKS IN SYMBOL TABLE, 
2610000 LOCSsri7213alids % Ss Ry Ws AND C FIELDS CSTRING LOC IN DATAC#s#)) 
2620000... OUTUSERfatii#s. % = 1 IF OUTPUT STRING 
2630000 OVFLSCi3silts % = 1 IF OVERFLOW ALLOWED ON OUTPUT 
2640000 — SCATTERSI@Es7S#2% SIZE OF SCATTER AREAS IN SYMB TABLE, 
2680000 = STR = £36841 Bs 
2660000 STW = C4038} #, 
2670000 TCYCLES(929:4]#2% TRANSFER TO CYCLE FIELD 
2680000.  TFEILNO#E5%5:4}#6% TRANSFER TO FILNO FIELD 
2690000 TYPE=C1292383 % TYPE OF ENTRY? 
2700000 | 0 = STRING 2 8 FUNCTION 
2710000 a 1 = LITERAL . 3 8 LABEL 
2720000 BOOLEAN. 
2730000 SYMBTABLSETUP3 % AVSLS SET UP IN SCATTER ROWS, 
2740000 BOOLEAN ARRAY Pi 
2750000 USEDSTLOISTRMAX]3 % TRUE IF SYMB TABLE ROW IN USEe 
2760000 INTEGER . 
2770000 SCATTERNOS % MAX ROW INDEX OF SCATTER AREAS, 
“2780000 ALPHA ARRAY 
2790000 TEMPLISTCOSSTRMAXIS & TEMP S.T,. LOCS FOR INTERPRETER, 
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. 3370000 | 


3380000 
3390000 


3410000 
3420000 


3430000 


3440000 
3450000 


3470000 
3480000 


3490000 ° 


34300000 
3510000 


_ 3520000 


33530000 


3540000. 
3550000. 


3560000 


3570000 
3580000 


3620000 
3630000 


2x, SO0008 2 
3650000 | 
3660000 
3670000. 
3680000 


3690000 


3710000 
3720000 


_ 3730000. 


3740000 
3750000 


... 3760000 
3770000 . 
3780000 
3790000 | 

3800000 


3810000 


_ 3820000 | 
~ 3830000 
3840000 
3850000 


3860000 
3870000 


3890000 


3900000 


3910000 


3930000 


3400000 % 


3460000 % 


3590000 % 
3600000 
3610000 % 


. 3700000 2. 


x 
% 
% 
x 
% 
% 
% 
% 
% 
% 
x 
% 
% 
% 
x 
% 
% 
x 
% 
% 
% 
x 
% 
% 
x 
% 
% 
% 
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% 
% 
% 
% 
x 
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3880000 


3920000 


VALUEP) e PNUSE = { FOR INPUT STRINGS AND PUNCTIONS WITH 
THE CALLS BEING TRACED. 
VALUCPT.QUTUSE = 1 FOR OUTPUT STRINGS» LABELS BEING TRACED> 
AND FUNCTIONS WITH RETURNS BEING TRACED. 
VALUEPJeLINK HAS SEVERAL USES*s DEPENDING ON THE TYPE OF THE OBYECT? 
STRINGS! THE LINK FIELD GIVES THE NEXT CELL ON THE PUSH*DOWN 
STACK, IF ZEROs THERE IS NO PUSH*DOWN STACK, 

INTRINSIC FUNCTIONS: THe INDEX FOR THE CASE STATEMENT IN 
THE INTERPRETER THAT BRANCHES TQ THE FUNCTION CODE. 
PROGRAM*@NEFINED FUNCTIONS? THE SYMBOL TABLE LOCATION OF 

THE ENTRY POINT, 
LABELS! THE REFERENCE COUNT» JIT IS BUMPED BY ONE EACH TIME 
THE LABEL IS ENCOUNTERED, 
VALUFPI.LOC IS THE LOCATIONS OF? 
STRINGS! THE VALUE. 
_LITERALS: OTTO, 
FUNCTIONS? €PROGRAM@DEFINED) A STRING OF 2*CHAR POINTERS TO 
THE SYMB TABLE LOCATIONS OF THE FORMAL PARAMETERS AND 
“LOCAL VARIABLES. FOR INTRINSIC FUNCTIONS, THIS FIELD 
1S IGNORED. 
rorP3,£1:2) 18 UNUSED, 
1OCP4.,I0USE = VALUCPJ.eIOUSE CREDUNDANT),. 
TOCPIsFILNO IS THE INDEX TO THE FILE ARRAYS FOR FILE £/0 STRINGS, 


TOCPISCYCLE IS CURRENTLY NOT IN USEs 


TOCP3],0VEL * 1 FOR OUTPUT STRINGS WHEN THE TAILS OF OUTPUT STRINGS 


TOO LONG FOR A RECORD ARE TO BE WRITTEN ON THE NEXT RECORD. 
NORMALLY 2 Os WHICH CAUSES TRUNCATION OF LONG OUTPUT STRINGS. 


OER Ts 1OTYPr IS THE TYPE OF 170 OPERATIGNs AS FOLLOWS 


VALUE. INPUT OUTPUT 
0 ILLEGAL ILLEGAL. 
Be 1/0 1/0 
2 LOOK TRACE 
3 TELETYPE TELETYPE 
4 ILLEGAL ILLEGAL 
5 ILLEGAL SYSPOT 


% rotey.C17331) IS UNUSED. 
SeeakeeakLOCAL VARIABLES FOR COMPILER ew ate ka ee ee ae tk kk RK kak 
BOOLEAN 
BUFFERFULL» % BUFFERE*}] CONTAINS A CARD, 
DCLISTs % LIST PROG ON TELETYPE, 
GT % FALSE. ‘AT START OF COMPILE3 TRUE WHEN GO*TO PART REACHED 
GTLASTs | % LAST INST HAD A GO#TO PART 
GTR. ‘& FAILURE EXIT HAS BEEN FOUND 
GTS» % SUCCESS EXIT HAS BEEN FOUND 
LSTEs % LIST PROGRAM ON LINE PRINTER FILE PRINT 
PCCe  & LIST CONTROL CARDS» EVEN IF NOT LSTF. 
~PROGRAMFROMREMOTE » % PROGRAM FROM TELETYPE, NOT PELE PROGRAM 
PUNCHF S| % PUNCH NEW PROGRAM DECK 
INTEGER 
ERRORS» % NUMBER OF SYNTAX ERRORS FOUND 
FIELDSIZE» % NUMBER OF CHARS PER CARD THAT ARE INSTRUCTION 
CINSTNUMs  & NUMBER OF INST BEING COMPILED 
INSTSIZEs % SIZE OF INST BEING COMPILED 
MARKER» | % FIRST CHAR CQMARK) OF INST IN CODEL*] 
MESSAGES,  % NUMBER OF INFORMATIVE MESSAGES PRINTED 
P» % POINT IN INST£L*] BEING COMPILED 
PTR} % NEXT CHAR IN CODEC #) 


e® @€ @@ 08 ®@ 


e ® @ e eee 


3940000 


3950000 
3960000 


_ 3970000. 
3980000 
3990000 


4000000 


~ 4010000 


4020000 
4030000 
4040000 
4050000 


4060000 


4070000 
4080000 


4090000 


4100000 
4110000 


4120000 — 


4130000 
4140000 
4150000 


4160000 


4170000 
4180000 


4490000 


4200000 


4210000. 


4220000 


- 4230000 


4240000 
4250000 
4260000 


4270000 


4280000 
4290000 
4300000 


4310000 © 


4320000 
4330000 


4340000 | 
4350000 
- 4360000 - 


4370000 
4380000 
4390000 


4490000 
4440000 — 
4420000 

4430000 


4440000 


4480000 | 
6460000 — 
4470000 
4480000 
4490000 


4500000 


INTEGER ARRAY 
BACKTRACKLO25020%5I5 
CHARTYPEL0t63]3 


ALPHA. 


NEXTSEGMENT.% SYMBTABL LOC OF NEXT LABELED INSTRUCTION 
SLASTLABEL3 % SYMBTABL LOC OF LAST LABELED INSTRUCTION 
BeeakeeaeLOCAL VARIABLES FOR COMPILER Rk atk dete EERE ERAN 


Paw aceeae STACK ARRAY Sik tte tk Hee eR tO REE RE RR kkk 


% THE FOLLOWING ARRAYS CONSTITUTE THE "STACK" USED BY THE 
® COMPILER AND INTERPRETER, THE INDEX OF THE NEXT WORD AVAILABLE 


‘%® IS THE GLOBAL INTEGER SP, 


BOOLEAN ARRAY 
PNAMELOSSTACKSIZE]3 %& TRUE FOR NAMED QUANTITIES 
INTEGER ARRAY 
PBACKs % LINK FOR BACK REFERENCE 
_PMINLEFT» . ® MIN SIZE OF REST OF PATTERN 
PPOINTs % POINTER TO MATCHED SUBSTRING 
PSIZE & SIZE OF PATTERN ELEMENT 
PTYPECO!STACKSIZE)$. & TYPE OF ELEMENT» AS FOLLOWS3 
O: UNDEFINED 
1: CONSTANT PATTERN ELEMENT 
2% ARBITRARY STRING VARIABLE 
3: FIXED"LENGTH VARIABLE 
4&t BALANCED VARIABLE 
5: BACK REFERENCE 
61 UNDEFINED 
7? NUMERIC VALUE@"IN PSTETI 


alc aida a al 


ALPHA ABRAY 


PLO % SCANNER ONLY# LOC OF VALUE OF ELEMENT 
HETED eralsy zed) % SYMBOL TABLE aDDRESS OF ELEMENT 

ResaeauctSTACK ARRAY Soe te tet em ek I eo JIT Ik Rik tok ik tk 

Leeaweeee OCAL VARIABLES FOR INTERPRETER ERE HAR EERE EER RR ee 

% WARNING! THE NUMBER OF VARIABLES IN TRIS SECTION MUST BE THE SAME 

% AS THE NUMBER OF VARTABLES COPIED IN THE DEFINED SECTION OF FUNCTION, 

BOOLEAN 

BACKREFLAG»s 

NOREPLACEMENT? 

NOBACKORBAL » 

SELFREFLAGs % 

SUCCESS» * 

VARFLAGS: % 
% 
% 
% 


Be ae ae 


INTEGER | 

—COUNTs 
ENTRYes 
FLOC» 
_PRONTENDs 
INCREASES 
INSTNOs, — 

INSTRUCT») 
MKS» % "MARK STACK" POINTER 
NEARPOINTs | 

_NEXTSOURCERFCORDs  §% DISK ADOR OF NEXT AVAILABLE RECORD OF SOURCE. 

NOPATTERNS? | 


ENTRY POINT & LAST LABEL TRANSFERED TO 
POINTER TO FAILURE EXIT. 


~ NOREPLACES» 
REARENDs 

REFIT. 

REF J» 


: a eae: cas fat H on ; : 


aves of Saps, Jee we 
; . sonst’ sad : : F ; : i : ee . pie Bins F : i - : E 


4510000 __ 


4520000 
4330000 
4540000 


4550000 _ 
4560000. 
4870000 | 


4580000 
4590000 


4600000 


4610000 
4620000 


8630000" 
4640000 


4650000 


4660000 | 


4670000 
4680000 


_ 4690000. 


4700000 
4710000 


_ 4720000 


4730000 
4740000 


_.. 4750000 


4760000 
4770000 
4780000 


4790000. 
4800000 
4840000. 


4820000 
4830000 
4840000 


— 4850000 


4860000 
4870000 


4880000 


4890000 


_ 4900000 
4910000 


4920000 


4930000. 


4940000 
4950000 


4960000 


4970000 


4980000 
4990000 


5000000 
5010000 
5920000 


- 5030000 
5040000 


3050000 


~ 5060000. 


5070000 


REFLOC» 

REFPTs 

REFSTEPs 

RELATIVEPOINTER? 

RPR» 

RSIZE>» 
scae. % POINTER TO SUCCESS EXIT. 
SP3 

ALPHA | 

TEMPREFS 


Reeerewawy OCAL a pauses FOR INTERPRETERR RRA AH Re ERR ER ee 
ReeewaeeeE TL ESHANDLING DECLARATIONS Hk eked eee eee Ree RHEE ERE 


DEFINE FILMAX = 5 #3 % MAX NUMBER OF FILES 
BOOLEAN ARRAY . 
IQOEOFs . % EOF ON LAST I/O OPERATION. 
IOFILEOPENs % TRUE FOR OPEN FILES, 
LOCKFCISFILMAX]3% NEXT RECORD IS IN NEXTRECORDEI+*). 
” — - USED WITH LOOK=TYPE INPUT STRINGS. 
INTEGER ARRAY 
IOSIZEs 
TOSPACEs 
RECORDCL2FILMAX]3 
ALPHA ARRAY . 
— TOUSAGEL LIF TLMAX]3 
FILE 
CARD €1210230)3 


FILE IN 


PROGRAM -€1240530)3 
FILE OUT 
PRINT ea Cisil)» 
PUNCHUM (121093 
SAVE FILE: OuT 
NEWDYSK DISK SERIAL £20600] ¢€1s10530sSAVE 153 


SWITCH FILE IOFILE © 


CARD» % Om*=DUMMY ENTRY 

CARD» ~@ CARD*IMAGE INPUT AND OUTPUT FILE | 
PROGRAM, % PROGRAM FILE FOR BATCH JOBS3 READ FILE 
PRINTs % LINE PRINTER FILE 

PUNCHs = & CARD PUNCH FILE 

NEWDITSK3 % FILE FOR CREATING NEW pISK FILES 


RaekteeeaeP IL EOHANDLING DECLARATIONS & tet Wk ko tk ae a ik ide IO i a kok 
KeeaeeeasSWTTCH FORMAT MESSAGE 46 6 tk td ie te ii i ek ii tO i tk § Oe 


SWITCH FORMAT MESSAGE © ("w#MISSING QUOTE, ")s 


C//*eeIGNORE ANY OUTPUT AFTER THIS**IT MAY BE INCORRECT,"//)s 


CMHeUNRFCOGNIZED CONSTRUCT IN STRING REFERENCE." )» 
Cos sUNIDENTIF TABLE PUNCHED OBJECT.")» 

C"weDOURLY DEFINED EXITe")s 

C"*wCHARACTER AFTER S OR F IN GO"TO NOT C.")s 
CYeeSTRING REFFRENCE MISSINGs")» 

C"*wUNRECOGNIZED GOTO CONSTRUCTe")>» 

CWeeILLEGAL LABEL IN GO*TO PART." )» 

CMee ILLEGAL COMMA,™)s 


CY eePARENTHESTS COUNT NON@ZERO AT START OF GO*TO PARTe")» 


CMH THE ONLY UNARY OPERATOR IS "etn ston,nnnyn wy, 
C"H¥EXTRA RIGHT PARENTHESIS, ")> 
("ewEXTRA ARROW OR EQUAL SIGN.")> 


%O0 
%O1 
%02 
#03 
%O4 
%05 
%06 
%07 
%08 
%09 


B10 


%11 
%12 
#13 


~ 


@ 
i @ 


Rigors Bustnass Porms, inc TAGS 


— $080000 


5090000 
5100000 


_. 34110000. 

3120000 
5130000 
5140000. 


5150000 
3160000 
5170000 


- 5180000. 


5190000 


~§200000 
5210000 


53220000 
3230000 


5240000 | 


5250000 
§260000 


5270000 


5280000 
5290000 


—$300000. 


3310000 


-§320000 


3330000 
5340000 
5350000 


--§360000 
~ 5370000 | 
- 5380000. 


3390000 
5400000 
5410000 


5420000 - 
5430000. 


5440000 


~ 5480000 


5460000 
3470000 


—§480000 

-§490000 

5500000 | 
5510000 


3520000 
5530000 


5540000. 
5850000 
3560000 _ 


3570000 
5580000 


3590000 | 


5600000 


5610000 
5620000 


— 5630000 


5640000 


("eaSTRANGE USE OF Mating sn, nense ty, 414 


C**e ATTEMPTED REPLACEMENT IN VALUE EXPRESSIONe")>» %15 
C%xe IMPROPER ARITHMETIC OPERAND.)» 716 
C%eeERROR IN USE OF ARITHMETIC OPERATOR." )» Z17 
("**ePARENTHESIS COUNT AT END OF INSTRUCTION NON*ZERO,")e %418 
C**eCONTROL PARAMETER NON#NUMERIC OR OUTSIDE ALLOWED RANGE e")s ¥19 
C/"ee DUMMY FMTm*MESSAGEL 201"), %20 
CeeTOO MANY ELEMENTS IN INSTRUCTION") >» . %24- 
C"#eUNRECOGNIZFD INSTRUCTION TYPE.")» %22 
C/%eeDUMMY FMT@=MESSAGEL23)")>» %23 
CtweTHIS LABEL HAS ALREADY BEEN USEDS FORMER VALUE LOST,")» R246 
C/"eeNO END CARD e™/)s 2 225 
("HwENTRY. POINT UNDERINED,") 2 226 
CY weMISSING RIGHT PARENTHESIS," )* %27 
C*eeTLLeGAlL USe OF LITERAL .")» %28 
C't#eMISSING OPERAND TO ARITHMETIC"), %29 
C/MeeDUMMY PMT w@MESSAGE(L 303%)» %30 
C/T ee DUMMY FMTemMESSAGEL 311") >» %31 
CM#eDEFINE FATLURE**UNKNOWN ERROR IN FIRST ARGUMENT," >» %32 
Cee DEP INE FAILURE**UNKNOWN ERROR IN LOCAL VARIABLE LIST." 433 
Cee INVALID ARGUMENT FOR INDIRECTIONe")>» 234 
C"USEDROWE se T2e"] IS "el 5e%3 DPNTRE“sT 22") = “s15)» %35 
CXLG ewe LOCKMs Mate X4 ee) Dy %36 
C™DATAL s 129") 3 mF, %37 
Ct#eMISSING STRING VARIABLE ASTERISK«."), .%38 
C*weMISSING PARAMETER,")> | %39 
C///***COMPYLER SCREWED UP,"///)»s %40 
C/"*eDATA COMMUNICATIONS FILE IN USEwe"s), Bat 
CewePROGRAM SEGMENT TOO LONG@@INSERT pele LABEL ON PRECEDING" 

INSTRUCTIONS )2. Z42 
C"eePND OF FILE. *)s %43 
("eePARTTY ERROR IN "), X44 
C/*e*#OQUT OF SPACE IN STRING STORAGE AREA,*)>» Zs 
(/"e*0UT OF SPACE IN SYMBOL TABLE.")» %46 
(WeeILLEGAL USE OF ARROW OR EQUAL SIGN," )>s 247 
CM eeNONMNUMERIC LITERAL IN ARITHMETIC? ")» %46 
CM#eTHIS STATEMENT CAN NOT BE REACHED.")>» ZA9 
C"eeUNDEFINED LABEL? ")e 250 
C//eeRETURN FROM FUNCTION NOT PRECEDED BY CALLS STATEMENT "se 

"NUMBER "2T6)e 434 
("ee TLLEGAL NAME FOR STRING VARYABLE et)» 452 
C"eeEND FORMAT#@MESSAGE,")3 


SeeuewewaeSwITCH FORMAT MESSAGE HRMENENAREHREAHEWER EERE ERR Aa 
Seeaekewae SWITCH “FORMAT FTIME SEAR ERR eRe a ae ie a a tk 


SWITCH FORMAT FTIME © 
C/"CPU TIME = eF 10g" SECA*/"1/0 TIME & "sF L010" SECa)e %00 


(25278 5560 60S NOB OL 3 SYS TE MSZ 


"VERSION “oF 3—1/ 
"THE DATE IS "ales" PAS." 19" 2A2s/ 

"COMPILATION STARTED AT eQCT2e"E" e712) 204 
C/PCOMPYLATION COMPLETED AT “e2clos"s"*)eI2)» z02 
C/" EXECUTION STARTED AT *e2CT29"t%)el2)s 203 
C7SNORMAL EXIT AT Me2Cl2eranyeolar™ » AT LEVEL *sTws” IN STATEMENT “ep 

T*)s %04 
C7“ ABNORMAL - EXTT AT “e2CT Qos olan, AT LEVEL "stu," IN STATEMENT "» 

I* ep Z05 
C//*H*#END FORMATP@FTIME."//93 


eeeeeee 


veutry Bustesss Forms, Int. a¥ 
I i aes ie H Higas 4 iy? a ' : H ; 2 a pes ted 


~ §680000 Bawa eienee SWITCH FORMAT FUT TOME ve ae ate ie ae rte tee gee RR TORII III W OIE a i RIO ti te ae 


SEBOOOO Sse We te tae tee ee IOI III a ITO IO III SO RII gk ka kee ee 
SA7O000 Bekewewe ek VARIOUS FORMATS i i wk tek Rm ae Nk Rt kk I RII IOI eI 
5680000 FORMAT % NOT GENERALLY USED BY MOST PROGRAMS: 


~§690000 


5700000 


5710000 


5720000 
5730000 
3740000 
5750000 
5760000 


__ 5770000 


$780000 
5790000 


.. 3800000 


5810000 


5820000 
5830000. 


5840000 
53850000 


_ 3860000. 


5870000 
5880000 


5890000. 


5900000 
5910000 


3920000 | 


5930000 


5940000 
3950000 | 
5960000 


5970000 


5980000, 


5990000 


- 6000000 
6010000 


6020000 
6030000 


6040000 


6050000 


6060000 
6070000 — 
6080000 
6090000 


6100000 


6110000 
6120000 
6130000 
6140000 


6150000 
6160000 


6170000 | 


6180000 


6190000 
6200000 


6210000 


FBOAL CBOALY» 


FCLOSEDR (%e#ATTEMPT TO READ FROM CLOSEN FILE#"), 


FCLOSEOW C'**#ATTEMPT TO WRITE ON CLOSED FILE:"), 


FCORLF (Meters | 
FENDPROG (*#END OF PROGRAM FILE De 


FFIXVARSIZE C“#*ILLEGAL SIZE "ss" ™sxXaots"” FOR FIXED*LENGTH “ty 


"VARIABLE IN STATEMENT oe I6)» 
FGC (//"##GARBAGE COLLECTOR “#1OC"aewteewety )» 


FGCRES (/"#eGARBAGE COLLECTOR RESULTS!*"/ 


15s" ROWS COLLECTED"/ 
152" CHARS IN LONGEST ROW" 
TS5*" CHARS TOTAL"/)>» 


FGCS €/"GARRBAGE COLLECTOR CALLED "sIwse”™ TIMESS USED “oF ele 


"SEC CPU TIMEs "sFu.ie™ SEC 1/0 TIME." )» 


‘FNOFTLE €"*aFILE NOT AVATLABLEs")» 


FO (on), 
FPARYTY (Mee TRRECOVERABLE PARITY ERROR ON)» 
FRULES (€"**NUMBER OF RULES EXECUTED = "»sI8)» 


‘FSENDCOPY Cw*SEND COPY OF PROGRAM TO SYSTEM AUTHORS.")s 


FTRACE C!S sTSeXlaXee = Henny, 


FIRACEFCTCALL (C™#C eT Se Xt axes") >» 


FTRACEFCTRET CPRR STS ae Xie XeetC) a Myntery, 
FTRACEL cC!FL “ao X te Tene FROM “sTe) de 


-FUNDEFFCT C¥**UNDEFINED FUNCTION CALLEDE")» 

ate eee C'* ATTEMPTED TRANSFER TO UNDEFINED LABEL "23 
FORMAT  .% FOR USE WITH CREATELIBRARY AND LOADLIBRARY> 
“FLIBOC"SNOBOL LIBRARY FILE “sTt), 
FLIBL CTielas 3th 120) )s 


FLIB2 CAZ216L 1216 )2 


FLIB3 C16A2)>» 


FLIB4 €60)s 


PLIBS €32L19» 
FLIB6 C12TA)s- 


FLIBOLOLPC*#*LIBRARY FILE INCOMPATIBLE WITH THIS VERSION OF 


7 "eke 5 


FORMAT % USED MURING MOST RUNSE 


FASTERISKS (/10230% eee aweme”) ), 


FBL CCX8))2. 


FOBL C#(/9), 
FERRS (lea SYNTAX ERRORS DETECTED)» 


FI? C17)» ; 
FI16 C116). 
PINT CaDeX*a Tee 


FNUM €X*,I*)3 


FORMAT % USED WITH TELETYPES 


FAGAIN CYS#TRY AGAINS Ze 5 
FOKSEARCH CXHaM*MoXweeT eM ear Lea C heeled ds 


FEH ChSHEHM Ale "See )y 


FFROMREMOTE ¢€"S#00 YOU WANT TO TYPE A PROGRAM" sA1s"S2e") >» 


FSTAT CHCMCM SZC Ta aM s/o Tee M iM eBIL 9M IM) )s 
FTTADOR CI¥s"/"eT*)» 


SNOBOL')» 


FLIBOLDTTC's¢LIBRARY FILE INCOMPATIBLE WITH THIS VERSION OF SNOBOL's 


FNOINPUT CM SAAWATTING TIME UP""DO YOU WESH TO CONTINUE*# Als "S46" )» 


® @® @ @ 8® @® 6 e@ # #@# & a& & 


8 e@ e@e8808086 @ 


® @eeeeee?@®@ 


eeeeeveeeen eee 


6220000 FTTHELLO C%<*SNOBOL VERSION “eF3gle%S#%e")s 
6230000 FYESORNO ¢("<*ATYPE YES OR NO.S%e" 55 
6240000 FVCRLF Cxests ee" )s 
(6280000 FORMAT % USEN WITH DUMP PROCEDURES 
6260000 FSTACKHE AD. C/"eeTHE STACK rS2%/ 

6270000 " WORD TYPE ST NAME ooeekOCeeee SIZE POINT MINLEFT BACK"), 

6280000 FSTACKENTRY CIOs T4 eo X2eA2sX3eLioXteTaeXisl2eXields Ss 1651821593 
6290000 SIDI UII III III IOS III IOI IOI II III IOI i i tito 
BIOOCOO B sete meted ae etek te at IE tH tek TIO te ek TOK ETON ek RET TIO TON Ik tk 
6310000 Xsaasezee =a BEGIN DATA COM GLOBAL DECLARATIONS sxcezsteSeerentzssssecsssz 
6320000 DEFINE 
6330000 DCINCHAR s28#s 

6390000 NBUFIN 34#o— 

6380000 BUFINSIZE =8#» 
6360000 DCOUTCHAR 288» 

6370000  NBUFOUT =5#, 
6380000 BUFOUTSIZE Ste 
6390000 MSGSITZE = 250. #s 

..6400000  —ANSSIZE = 280 #» % MAX # OF CHARS IN OUTPUT STRINGs 
6410000 TIMAx = 15 #3 % MAX # OF TELETYPES ALLOWED. 

6420000 ALPHA ARRAY 

 §6430000 DCREADLCOSCMSGSIZE*1).WI1e 
6440000 DCWRITECONCANSSIZE*1) WI» 

6450000 IDs. -% Te De OF USER OF TELETYPE 

6460000 == STATLOSTTMAX]$  —-&- STATUS OF TELETYPE 
6470000 ALPHA FILE IN DCIN 14 € NBUFIN® BUFINSIZE)3 
6480000 ALPHA FILE OUT OCOUT 14 (CNBUFOUT*BUFOUTSIZE)3 

_ 6490000 INTEGER 
-. 6500000 MAINUSERs  % TELETYPE CURRENTLY IN CHARGE 
6510000 NUMUSERSs © % NUMBER OF TELETYPES ATTACHED, 

6520000 — USERS % TELETYPE CURRENTLY BEING TALKED TO 
6830000 REAL 
6540000  WAITTIMES 

_ §550000 BOOLEAN BRE AK3 
6560000 Ssase2eeeeez= END DATA COM GLOBAL DECLARATIONS ssezasceetcasaazessestsesss 
6570000 BEGIN. _& GLOBAL STREAM PROCEDURES 

—~ §§80000- Sear ABS ADD Ra IOI IGRI IG IG I IO IIIT ISIC SII II III 

“6590000 INTEGER STREAM PROCEDURE ABSADDRCAD3 
6600000 BEGIN St ¢ AS’ ABSADDR ¢ ST3 END; 

OG L0000 Swe tiew e RABSAD DIR a ie te hk WW te ae te te te te tt te a Fe TION ICR dike iii tek & 
BO 20000 eae ae a se tei I RIO I III II III III OI III OI IOI II IO tik 
6630000 COMMENT CHAR RETURNS THE PTH CHARACTER OF NAMEs RIGHT JUSTIFIED; 

6680000 - INTEGER. STREAM PROCEDURE CHARCNAMEsP)3 
6680000 VALUE P} 
66460000 % 

6670000 § 

6680000 BEGIN Sy « NAME3 
6690000 Sf «+ SI + Ps... 

6700000 OL. «+ LOc CHARS DI € OL + 7 
6710000 DS « 1 CHR; 

6720000 END; 
6730000 GI II IOI III GIGI II III III III III I IUIUIGIUITIUI TOI tot 

OP AOO00 Be tae ee Ok RO TEI IOI IGOR RII II OI II III IOI III II IO OF 
6730000 BOOLEAN STREAM PROCEDYRE EQ(NeLIsTtoL2e12)) 

6760000 VALUE No The. 193 
6770000 BEGIN S} «+ 113 SI * SX + I13 
6780000 DI « L23 DI © nI + 123 
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56790000 NCTF 1.8C #.0C THEN JUMP OUT); 
6800000 IF TOGGLE THEN TALLY © O ELSE TALLY © 143 
6810000 EQ « TALLY? 
_§820000 END EQ} 
6830000 Bots IE Qi ROI III I ISI IIIT IO IO OE et 
6840000 Bane EQUAL ei OIG IU IO III UII IOSISIOI IS IG IIUIISIGI ITO ISIIOR IDOI Ort 
6850000 % EQUAL RETURNS TRUE IF THE N CHARS STARTING AT THE TiTH CHAR AFTER L1 
6860000 % ARE THE SAME AS THE N CHARS STARTING aT THE L2TH CHAR AFTER L2e 11 
6870000 % AND fo MUST RE 2 0 AND §$ 63, 
_ 6880000 BOOLEAN STREAM PROCEDURE EQUALCNeLisIielL2st2)3 
6890000 VALUE Ns Iis 193 
6900000 % 
6910000 % 
6920000 BEGIN LOCAL NA» NB3 
6930000 LABEL L3 
6940000 SI « LOc Ns SI « SI + 53 
6950000 DI « LOC NA} DI * DI + 73 DS + 1 CHR: 
6960000 DI ¢ a NB3 DY © DI + 73 O08 « jf CHRS 
6970000 Sree Lb 
6980000 SI « S7 + 113 
6990000 OF « 123 
_. 7000000 DI ¢ OY + 123 
7040000 NACLOC32CIF 8 $c # DC THEN yuMP OUT 3 To 49295 
7020000 NBCB8CIF 8 SC. # DC THEN JUMP 2.70 4.933 
7030000 NCIF 4 §C #4 DC THEN JUMP OUT) 
7040000 Li IF TOGGLE THEN TALLY © OD LSE TALLY © 43 
7050000 EQUAL © TALLY} 
7060000 ENDS 
TOTO000 To EE OLA LSI IO ISHII IUCR IO IOE Ith a hk 
-- 7OB0000 BEGIN &% MOVE STREAM PROCEDURES 
-. 7090000 PERTTI TT ELE TER ELITE TEETER ETT TTC TR TTE TT ULE TET Te TTT TTT Te 
7100000 STREAM PROCEDURE MVCNoLtolTisl 201233 
7110000 VALUE No Ite Ia3 
7420000 BEGIN Sy « Lis SI © Sr 4+ 143 
7130000 DI « Las pr « nt + 123 
7440000 DS « N CHR3 
—TY80000 END Mvs 
7440000 EMI RII RI ISI III IOI IOI IIIS TION SRI ike 
FL 7 OOOO & sete te te se ete eM (DY FT We te te ie ee ae te aa tee I OI OR I a EO I ION he ® 
7180000 | STREAM. PROCEDURE ghee NE POURECa Ty DEC ate)! 
. F190000 & 
_ 7200000 VALUE Ne te teres 
7210000 BEGIN LOCAL NAy NBS 
7220000 SI « LOc Ns SI * SI + 53 
7230000 DI « LOc NA$ DY © DOI + 73 DS © 1 CHRI 
7240000 DI « LO¢ NBS Or © DI + 73 OS + 1 CHR} 
7280000 St + SOURCES. ~~ 
7260000. St « S14 113 
7270000 Dive DEST te 
7280000 DY « DY + 123 
7290000 NACAC32(0S « 39 CHR)))3 
_.7300000 NBC2¢0S « 32 HRI F. 
7340000 DS ¢« N CHR | 
7320000 END MOVE? . 
7330000 STI IEIIT TL ATE L ET OSS S PETES LOSE TTT TTT CELT TTTTrererirerirrreeee Tiree 
7340000 PPT ESTE. ie DELALALL EEL LITLE LIA LLI LT LITTLE LICE LILI LireiriiiiT 
7350000 STREAM PROCEDURE MOVEWOS(NeL isl 223 VALUE N3 
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tAcuve Businass Morms, ing. iv Sates 
‘ ‘Geese 
; Lo 
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i 


7360000 


7370000 
7380000 
7390000 


7400000 


7410000 


7420000 


7430000 
7440000 


7450000. 
7460000 
7470000 


7480000. 
7490000 
7500000 


7310000 _ 


7520000 
75330000 
7540000 


7850000 


7560000 


_7570000 
7580000 
7890000 
- 7600000 


7610000 
7620000 


_ 7630000 


7640000 
7680000 


7660000 
7670000. 


7680000 
7690000 


7700000 


7710000 


_ 7720000. 
7730000 


77460000 
7750000 


7760000 
7770000 
7780000 

“7790000 


7800000 
7810000 


7820000. 
7830000 
7840000. 
7a50000 


7860000 


_.. 7870000 
7880000 
7890000 
-.7900000 


7910000 
7920000 


BEGIN. LOCAL NA} 
a ¢ Oe N3 SY ¢ SI + 63 
DY « LO¢ NAS DY © DI + 73 DS © 1 CHR3 
St ¢ Lis DI © 123 — 
NAC2C¢DS + 32 WHS)9F NEDS © 1 WOSD3 
END MOVEWDS3. 
Bikes MOVE WS ae I aa I I IO III III IOI III IO IOI i tok 
ote ese eee MOVE WORD He We ee te ae ae aa ee ie ete ti ie Se ae ii i He ete i ete kk 
STREAM PROCEDURE MOVEWORD(AsB)3 VALUE As 83 
BEGIN ST ¢ a3} DI © BS DS © 1 WOSS END; 
Bake ee MOVE WOR DR INI ISI IOI III IOI i tink 
BEGIN % SCAN STREAM PROCEDURES 
Bawa wak ee SCAN CHAR tm 1 Ri ea IOI IIa IOI III IOI OIRO IOIIOIOIO I ROI IGT tok 
% SCANCHAR RETURNS THE NUMBER OF CHARS FROM THE ITH CHAR AFTER | 
* CO $ Y $ 63) TO THE FIRST OCCURRENCE OF EITHER C1 OR C2, 
INTEGER STREAM PROCEDURE SCANCHAR(CisC2sLeol)# VALUE CisC2e Ts 
BEGIN. LOCAL Pils P2es Haka TEMP3 
LABEL. CHERCHEs TROUVES 
SY ¢ L3} SI « St + 
Dr ¢ LOc C13 Dr © DI + 73 
CHERCHE: IF 1 SC = DC THEN GO TO TROUVE3 
‘TEMP * OTS OF « LOC C23 


Ol ¢ OF # 73 SI ¢ SY * 3 
IF £. $C: 2 De: THEN GO TO TROUVES 
Dl «© TEMPS 
DI « DI = 43 
TALLY «© TALLY * 43 
TEMP @® SI3 | 
P3 @ TALLY? SIT -« LOC P33 SI « SY + 73 


IF $c #4 °"0" THEN 
BEGIN SI ¢ TEMPS 60 TO CHERCHES END3 
TALLY © Pas TALLY © TALLY + 43 
P2 «+ TALLYS SI «© LOC P23 SI © SI 4 73 
IF Sc # "O* THEN 

BEGIN. TALLY 03 

‘SI¢ TEMPS GO TO CHERCHES 

ENO} 


TALLY © P43 TALLY © TALLY + 13 


Pt « TALLYS TALLY ¢ 03 


St ¢ TEMPS 
GO TO CHERCHES 
TROUVE! | 
Ore Loc SCANCHARS DI ¢ pl + 53 
$f ¢ Loc PLs SI + SI + 73 DS © 1 CHR; 
SI * LOC P23 SI * SI + 73 DS © 1 CHRS 
SI * Loc P33 SI « SI + 73 DS * 1 CHRS 
END SCANCHARS 


Bite eee SCANCHAR AO tii ik II IU IG IORI II IOI ea tOn Eee Ree ie 
Bee a SK TP CHAR tf rete 8 fe de ita a RR IIR i eR tO ERR Hk et 
“INTEGER STREAM PROCEQURE SKIPCHAR(CoLo1)3 VALUE Col; 

% 

BEGIN LOCAL Pils P2s P3* TEMP; 


LABEL CHERCHEsTROUVES 


SI e¢ L3 St-« St +03 


DI ¢ LOC C} DI + DI + 73 
CHERCHE: IF 1 SC ¥ DC THEN GO TO TROUVES 


OI « OI = is 


: fi sens oo i aaa : : : : : ; ; ae ' ; ‘ : 
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_ 7930000 


7940000 
7950000 
7960000 


7970000 — 


7980000 
7990000 
8000000 
8010000 


8020000 . 


8030000 
8040000 


8080000 


8060000 
8070000 


8080000 
_ 8090000 


8100000 


8110000. 


8120000 
8130000 


_ 8140000 


8180000 


‘8160000 
— 8470000 
8180000 


8190000 


- 8200000_ 

8210000 
8220000. 
8230000. 


8240000 
8250000 


. 8260000 


8270000 
8280006 


- 8290000. 


8300000 
8310000 


8320000 | 


8330000 
8340000 


8980000. 


8360000 
8370000 


. 8380000 - 

8390000 
8400000. 
8440000. 


8420000 
8430000 
8440000 
8450000 
8460000 


8470000 
8480000 


8490000 


UF. SC = "#" THEN TALLY 


.. TALLY «© TALLY + 23 
TEMP « S73 
P3 @ TALLYS SI ¢« LOC P33 SI ¢ SI + 73 


IF Sc # "O" THEN 
BEGIN SI ¢ TEMPS GO TO CHERCHES ENDS 
TALLY © Pos TALLY © TALLY + 13 
P2 -¢ TALLY S21 # LOC P23 SI + $1 # 73 
IF SC # "O” THEN 
BEGIN TALLY « 03 
St ¢ TEMP$ GO TO CHERCHE3 
ENDS | 
TALLY © P13 TALLY © TALLY + 13 
PL @ TALLYS TALLY © 93 
St « TEMP3 
GO TO CHERCHES 
TROUVES | | 
DI © LOC SKIPCHARS DI « D1 + 53 
$I-¢ LOC Pis SI ¢ SI + 73 DS © 1 CHR; 
SY * LOC P23 SI ¢ SI + 7% 0S © 1 CHR 
SI « LOC P33 SI « SI * 73 DS © 4 CHR3 


END SKIPCHARS 
Ree teewe SK TR CHAR Sk Ta TSI IO ISI OOO Rigi IO to ii iok i ite k 


SIO III IE III IS TUSTIN ISI ISIS ICIS IOI IOI i Roi toi fotik 


“%  CARDTYPE RETURNS A NUMBER IDENTIFYING THE TYPE OF INSTRUCTION 


BEING COMPILEDe=THE TYPES ARE? 
COMMENT 
CONTINUATION 
CONTROL CARD 
END. 
UNLABELED 
Hou ats LABELED. _ 
INTEGER STREAM PROCEDURE CARDTYPECCARD)3 
BEGIN S81 « CARDS 


% 
% 
% 
% 
% 
2 


ae a H 
Ue wile 


* 1 ELSE 
IF SC = "%" THEN TALLY © 1 ELSE 
Ir Sc = "," THEN TALLY © 2 ELSE 
IF SC = "=" THEN TALLY © 3 ELSE 
If Sc = “E* THEN 
BEGIN SI -* ST # 13 
BEGIN SI + SI + 43 
TF $c = "OD" THEN 
BEGIN SI ¢ St + 43 
IF 3C = wo THEN TALLY © 4 ELSE TALLY « 63 
‘ENO ELSE TALLY © 63 
END ELSE TALLY © 63 | 
END ELSE | 
If sc a" THEN TALLY © 5 ELSE TALLY © 63 
CARDTYPE « TALLY — 


END. TYPr3 
Zeke a eee k CARD TYPE sm ee ee We EE ee EKER EK ETE ERR REAR EE 


BEGIN  % ALGOL PROCEDURES 


Rveetwexe et FORWARD DECLARAT LON Sts Ur UU IIR AIR ia eet ihe 
PROCEDURE CLEARCAR#N)3 

VALUE N3 INTEGER N3 

ALPHA ARRAY AREO}3 

FORWARD3 


® @® @ @ 08 0@ 08# @ 0@# @# #&# & & 


® @© @ e000 @ 


y 
r * @ 
ail 


i 
} 


re #usness Sories, ine. $v 


7 ae ¥ SGN tenet finte eh ; A : : 
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praveeg 
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8500000 
8510000 
8520000 
8530000 


8540000 


8550000 
6§60000 


6570000 


8580000 
8590000 


~~ 9600000 


8610000 
8620000 


~ 8630000 


8640000 


_ 8650000 
8660000 
- 8670000 
8480000 


8690000 
8700000 


_ 8710000 
8720000 
8730000. 

- g740000 © 


8750000 
8760000 


8770000 


8780000 


8790000 | 
8800000 


8810000 


8820000 
8830000 


~ 8840000 | 


8850000 


860000 — 
8870000 


8880000 


. 8890000 
8900000 


6910000 


—.g920000 


8930000 
8940000 
8950000 


8980000 


~ 8990000 i 


9000000 
9010000 


9020000 — 
9030000 


9040000 


~ 9050000 


9060000 


BOOLEAN PROCEDURE COMBINEARITHMETICCY 93 
VALUE 13 
INTEGER 13 
FORWARD; 
PROCEDURE COMBINEFUNCTIONCMKS)3 
VALUR MKSs | 
INTEGER MKS 3 
FORWARD} 
BOOLEAN PROCEDURE COMBINEGOTOPARTCMKS)3 
VALUE MKSS 
INTEGER MKS3. 
FORWARD? - 
BOOLEAN PROCEDURE COMBINEGROUPCMKSsCON)3 
VALUE MKSes CON3 
INTEGER MKS3 
BOOLEAN CON3 
FORWARD: 
BOOLEAN PROCEDURE COMBINEINDIRECTIONCMKS)3 
VALUE MKS} _ 
INTEGER MMKS3 
FORWARD) 


BOOLEAN PROCEDURE COMBINESTRVARNAMECMKS)3— 


VALUP MKS3 
INTEGER MKS; 
FORWARDS © 


PROCEDURE COMPILECINST)3 


ALPHA ARRAY INSTLO33 
FORWARDS — 5 
INTEGER PROCEDURE CONTROLPARAMETER( AsP)3 
ALPHA ARRAY ACOT3 
INTEGER PS 
FORWARDS 
PROCEDURE CONVERTCA 
ALPHA ARRAY ACO] 


)3 
3 
“FORWARD? | 
ALPHA PROCEDURE DATES 
FORWARD 
PROCEDURE DEBUGCL)3 
VALUE L3 
LABEL: Ld eyes 
FORWARDS 
INTEGER: PROCEDURE ‘OIGITSENIS 
VALUE N3- 
REAL N3 
FORWARDS 
LAL BHA PROCEDURE eRe eke eet 
VALUE Ns Pe x3 


INTEGER No. ps 
ALPHA ARRAY LCO]s 
ALPHA X3 
FORWARD} 

“PROCEDURE FINDUSERS3 
FORWARDS . 

PROCEDURE GARBAGECOLLECTORS 
FORWARD; 

PROCEDURE INDIRECTCSP)3 
VALUE SP3 


eae Saee ee eine oven | i pero aire! ‘ : ‘ 7 aon a feel ‘i 


ORM Sy, Peet 


eeeeeveeeeeeweeeeweeee 8 8 8 
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9070000. 


9080000 
9090000 


. 9100000 | 
9110000 


9120000 


- 9130000 


9440000 
9150000 


9160000 | 
9170000 
9180000 
9190000 
9200000 


9240000 


9220000 © 
9230000: 
9240000 
9280000 


9260000 
9270000 


9260000 


9290000 . 
9300000. 


9310000. 
9320000 


9330000 


9340000 
9350000 | 
9360000. 

9370000. 


9380000 
9390000 
9400000 


9410000. 
9420000 
9430000 

9440000 


9450000 


9460000 
9470000. 
9480000 
9490000 — 


9500000 
9510000 


9520000. 
9830000 
9840000 | 
9880000 


9560000 


9570000 
9580000 


9890000. 


9600000 


9640000 


9620000 
9630000 


INTEGER. SP3 
FORWARD} 

PROCEDURE INFORMOCI)3 
VALUE 33 

INTEGER 13 
FORWARD; 


PROCEDURE INFORMACI»P)3 


VALUE Te P} 
INTEGER 13 ALPHA P3 
FORWARDS 
PROCEDURE INFORMICI*#P)3 
VALUE Ts PS 
INTEGER Yo P3 
FORWARDS 
PROCEDURE INFORMIAC IPL 9P293 
VALUE I>» Pi, P23 
INTEGER Te PLS 
ALPHA P23 
FORWARDS 
PROCEDURE INFORMITCIsP1,P2)3 
VALUE Ise Pls P23 
INTEGER Ts Pils P23. 
FORWARDS | 
PROCEDURE INITIALIZE SYMBTABL3 
FORWARDS 
BOOLEAN PROCEDURE INPUT? 
FORWARD3 


PROCEOURE INSERTSTRINGCONVERT(SP)3 


VALUE SPS 
INTEGER ‘SP3 
FORWARDS 
PROCEDURE INTERPRETER? 
FORWARD} 
INTEGER PROCEDURE INTRINSIC(L»PsS)3 
“VALUE Ps $3 
ALPHA ARRAY L073 
“INTEGER Ps §3 
“FORWARDS 
PROCEDURE LOADER(F)3 
FILE FS 
FORWARDS | 
PROCEDURE LSTCA)S 
ALPHA ARRAY ALOJs 
FORWARDS 
PROCEDURE MESSAGEOCI)3 
VALUE TS | 
INTEGER 13 
FORWARDS 
PROCEDURE MESSAGEAICI»P19P2)5_ 
VALUE Is Pl» P23 
INTEGER Ip P23 
ALPHA P13 
FORWARDS. 
PROCEDURE MESSAGEICIsP)3 
VALUE Is P3 
INTEGER Ie P3 
FORWARD 


eS Se Se ir ve ar 


® 
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- 9640000 


9650000 
9660000 


9670000 | 


9680000 
9690000 


9700000 
9710000 


9720000 
9730000 
9740000 
9750000 
9760000 
9770000 
9780000 


9790000 
9800000 


9810000 
9820000 


~ 9830000 


9840000 
9850000 
9860000 


9870000. 
9880000 | 


9890000 
9900000 


_ 9910000 | 
9920000 
~ -9930000_ 
-.2940000 | 


9980000 
9960000 


9970000 
9980000 


9990000 
10000000 


— {00{0000 


19020000 
10030000 


40040000 
{0050000 


10060000 


10070000 


10080000 
10090000 


40100000 
10110000 
10220000 


19130000 
10140000 


10150000 


19160000 


40470000 
- $0180000 | 


10190000 
10200000 


PROCEDURE MESSAGETTOCID3 
VALUE Ts | 
INTEGER 13 
FORWARDS 

PROCEDURE MESSAGETTACIsP1)3 

VALUE Ts P43 

INTEGER 13 

ALPHA P13 

FORWARD} 

PROCEDURE MESSAGETTAICIsPisP2)3 
VALUE Is Pi, P23 
INTEGER Is P23 
ALPHA P15 
FORWARDS 

PROCEDURE MESSAGETTICIsP)3 

VALUE Ts PS. 

INTEGER I» P3 

FORWARDS 


INTEGER PROCEDURE MNEMNO(NsAsP)3 


VALUE NS 
INTEGER No P3 
ARRAY Arovs” 
FORWARD 
ALPHA PROCEDURE NEWCELL(I)3 
VALUE IS | 
INTEGER 13 
FORWARDS 
PROCEDURE NEWSTROWCI)3 
VALUE I3 | 
INTEGER 13 
FORWARDS 
BOOLEAN PROCEDURE NULLARGSCND 5 
VALUE NG 
INTEGER NB 
FORWARDS 
BOOLEAN PROCEDURE NUMVALCST»VAL)3 
VALUE STB 
ALPHA ST} 
INTEGER VAL3 
FORWARDS 


BOOLEAN PROCEDURE OUTPUTS 


FORWARDS 


BOOLEAN PROCEDURE POPesTLaco) 


VALUE STLOC3 
ALPHA STLOC3 
_ FORWARDS 
PROCEDURE PROCESSCONTROLCARD( AIS 
ALPHA ARRAY ACOJ3 
FORWARDS. 
BOOLEAN PROCEDURE PUSHCS*T)3 
VALUE Ss TS ALPHA Se T3 
FORWARD 
PROCEDURE RETURNCELL(L)3 
VALUE LS ALPHA L3 
FORWARDS. 
PROCEDURE RETURNTEMPS} 
FORWARD 


eeeceec 


eeeeeeeenwweeneeaeenwe 


10210000 
19220000 
10230000 
10240000 


10250000 | 
10260000 


10270000 
10280000 
10290000 


10300000 


19370000 
10320000 


10330000 


10340000 
19350000 


19360000 | 


10370000 


10380000 
10390000. 


19400000 
10410000 


10420000 | 


10430000 
10440000 


- {0430000 


10460000 
10470000 


10480000 


10490000 
19500000 


10510000 


10520000 
10530000 


.. 10540000 


10580000 
10560000 


10870000. | 


10380000 
10590000 


... 10600000... 
10610000 
10620000 
10630000 


10640000 
19650000 


10660000 | 
- 10670000. 
40680000 
10690000. 
10700000 


10710000 


20720000 - 


10730000 


10740000 


10780000 


40760000 


10770000 


ALPHA PROCEDURE SCATTERCSIZEsLOCePsx)3 
VALUE SIZE» Pe X3 

INTEGER SIZE P3 

ALPHA ARRAY LOCCO)3 

ALPHA X3 
FORWARDS 
ALPHA PROCEDURE SEARCHST(NsLoPeX 23 
VALUE Ns Po x3 

INTEGER Ne P3 
ALPHA ARRAY L[013 
ALPHA X3 
FORWARDS 
BOOLEAN PROCEDURE SNBLDEFINECST{*ST29ST3)3 
VALUE STis ST2»e ST33 
ALPHA STi* ST2s ST33 
FORWARDS. 
BOOLEAN PROCEDURE SNBLINCST)3 
VALUE ST3 
ALPHA $T3 
‘FORWARDS 

BOOLEAN PROCEDURE SNBLOUTCST)S 
VALUE ST3 
ALPHA ST3 
FORWARD?. 


PROCEDURE STORFCHARS(NeLoI)3 


VALUE Ns F3 

INTEGER Ne T3 

ALPHA Ls. 

FORWARD; 

ALPHA PROCEDURE STRINGCN*®STLOC)3 
VALUE Ne STLOCS 
INTEGER NF ALPHA STLOC3 
FORWARDS 

PROCEDURE STRINGOUMP(N)3 
VALUE NS 
INTEGER NS 
FORWARD? |. 

PROCEDURE SYNTAXERRON» PDS 
VALUE Ne P3 
INTEGER Ne PE 
FORWARD? . 

ALPHA PROCEDURE TEMPCELL3 

FORWARD? 

ALPHA PROCEDURE TEMPVAL(TI)3 
VALUE I3 | 
INTEGER 13 
FORWARDS 


BOOLEAN PROCEDURE TRACEFCTCALLCF)S 


VALUE FB 
INTEGER FS 
FORWARDS 
BOOLEAN PROCEDURE TRACEFCTRETURN(F» SUC); 
VALUE Fs SUC}. 
INTEGER FF) 
BOOLEAN SUC3 
FORWARDS 
INTEGER PROCEDURE TTINDEXCST)3 
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10780000 | 


10790000 
10800000 


40840000 


19820000 
{0830000 


10840000. 


~~ "40880000 


— £1120000. 


41150000 


41170000. 
11180000. 
11190000. 

11200000) 


10860000 


10870000 | 


10880000 


10890000 
10900000. 


10910000 
10920000 


40930000 __ 
10940000 _ 
40950000 
40960000 


10970000 
10980000 
10990000. 


“41000000 
(110140000; 
(11020000. 
11030000 


11040000 


11050000 
110460000 © 
11070000 
11080000 
11090000 


11100000 
11110000 


11130000 
11140000 


11160000 


11210000 
11220000 
14230000 
11240000 


11270000 
11280000 


14290000 
41300000. 
41310000 


41320000 


11330000 
11340000 


VALUF STB. 
ALPHA .ST3 
FORWARD; 
BOOLEAN PROCEDURE WRITEBUFF CAUFOQUTsPsSIZE)3 
VALUE SIZE} 
INTEGER Pe SIZE3 
_ ARRAY BUFOUTLOUS 
FORWARD? 
PROCEDURE WRITEDATAS 
FORWARD; 
PROCEDURE WRITEINST3 
FORWARD} : 
PROCEDURE WRITEST! 
FORWARDS 
PROCEDURE WRITPSTACKON) J 
MALUE N3 
INTEGER N3 
FORWARDS — : 
PROCEDURE WRITETIMECFaN)3 
VALUE Fe NB 
INTEGER Fe NE 
FORWARDS 
LABEL . 
ABORTION» % FATAL SYSTEM ERROR 
ENDOFRUN» — & FINAL OUMPSs IF ANY | 
ENOTERPRETS | % TRANSFERRED TO AT END OR FATAL ERROR 
Kwa settee A CHECK OU TUSE 4 i ie i te ie te td eT RO RE REN Rk 
BOOLEAN PROCEOURE CHECKOUTUSECST)3— 


VALUE ST3 ALPHA ST3. 


CHECKOUTUSE © TF BOOLEANCVALTABLEST. STR»ST.STW),OUTUSE) 


THEN SNBLOUTCST) ELSE TRUE; 
Bete ew ACHE CK OUT USE toe oo ia ee a TR OIC TIO I Me ek ee 
Rew weewa ne CHECKS YMBTABL tek ee eee NRHN TRE ERE RE REE kes 


% CHECKSYMBTABL LOOKS FOR SYMBOL TABLE ENTRIES WHICH POINT TO STRINGS 


% NOT PRECEDEn BY A POINTER BACK TO THE SAME SYMBTABL LOCATION. IF 


% ANY SUCH ENTRIES ARE FOUND, AN ERROR MESSAGE IS PRINTED AND 


% THE JOB 1S TERMINATED ABNORMALLY CWITH A COMPLETE DUMP), 


PROCEQDURE CHECKSYMBTABL3 

BEGIN INTEGER Te Je Ks RWs CHR» PF 

BOOLEAN URKS 

ALPHA AA3 

FORMAT FFC/"#4SYNBTABL LOCATION "sA2e" 1S NOT POINTED TO BY ITS STRING" 
WAT DATAC» T2e%e*#] + “eT4e" CHARS.) >» 

FPUSH (//"#*PUSHSOOWN STACK INTO AVAILABLE SPACE LIST AT "e#A2)> 

FG (/"**SYMBTABL LOCATION ZERO HAS BEEN ALTERED.")3 

URK « FALSE} 


IF NAMTABLEO20920 OR VALTABLE020]#40 THEN 
11280000 | 
14260000 


BEGIN WRITECPRINT#FG)S. 
LURK # TRUES 


EN ND 
FOR YT « 0 STEP 4 WHILE I S$ STRMAX AND USEDSTLC]2 as 
BEGIN Jo NEXTCELLETI¢STWS 
-IF os e: 0 THEN 00 
BEGIN NAMTABL CleJdJs C3%11 © rT 
Jo @ CNAMTABLE Ted] eLINK) STW 
ENO UNTIL J * 0 OR J 2 STWMAX3 
FOR J «© O STEP 1 UNTIL STWMAX DO 
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_ 11350000 


113460000 
11370000 


_ 1£380000 


11390000. 
11400000. 
11410000 . 
~$1420000 — 
11430000 | 
11440000 | 


11450000 


11460000 


11470000 


11480000 
11490000 
11500000 — 
41510000 _ 
11520000 
“11530000 
11540000 
11580000 


11860000 


41870000. 
41580000 


11590000. 


11600000 
11610000 
11620000. 
11630000 
11640000. 


41680000 


11660000 
11670000 


411680000 


11690000 


41700000 
-AL710000 


11720000 
11730000 


11740000. 
11750000 


11760000 


11770000. 


11780000 
11790000 


. 11800000 
11810000 .. 


11820000 
41830000. 
11840000 
11880000 


11860000 | 


11870000 
41860000 
41890000 
11900000 
11910000 


BEGIN 
FOR AA © NAMTABLEC Te J] sVALTABLEIsJ} DO IF AA,CH > 3 THEN 
% CHECK STRINGS FOR BACK=POINTERS 
BEGIN RW ©¢ TEMP,.R3 
CHR «© TEMP, CH bad a3 
MVC2sNATACRWSCHR, We CHRe CoP 2603 
IF I-# P,STR OR J £ P,STW THEN 
BEGIN WRITECPRINToFF#J8l PE NCOT Ne hen ORGes 
URK « TRUE 
ENDS | 
END3 
If NAMTABLEIeJ),01221720 THEN % STRING*"CHECK PUSH#DOWN STACK 
BEGIN | 
AL ¢ VALTABLEL edd LINKs 
WHILE AA #0 00 
BEGIN IF BOOLEANCNAMELAA.C3819) THEN 
BEGIN WRITECPRINTs FRUSHSAA)3 


URK © TRUES 
END? 
AA ® VALULAAT LINK} 
END3 
ENDS 
ENDS 
ENDS 


IF URK. THEN “ABORTI 


END CHECKSYMBTABL3 
Sawa kewe ew CHECKS YMBT ABL & we i te ae te te a Wie kt tee We iW te ee a RH ER Ie 


Sate CL AR a III IOI III IOIOI TRI IICIII IIIT TOO I TOIT IO Ut tok 
PROCEDURE CLEARCAR#N)3 VALUE NJ ALPHA ARRAY ARCOIs INTEGER Nb 
FOR N # N = { WHILE N 2-0 00 MOVEC8sBLANKSs Os ARENI20)3 


he tk tte CL BAR eo ii III III IOI IOI IDOIOIG SI III Gi tk ties 


BewwaeswHeCOMBINEARITHME TIC + ta a tok he eR he i eR ea ik ik i ik 

BOOLEAN PROCEDURE COMBINEARITHMETICCI 3 

VALUE 3 

INTEGER 13 

BEGIN . 

LABEL FAUTs FINs UNARY3 

INTEGER Je Ke LEVOPs N3 

% YF INFORM THEN INFORMOC20)3 

COMBINFARITHMETIC ¢ FALSE 

IF f414 2 SP THEN 

— BEGIN SYNTAXERR(295 PLOCEII)3 

GOTO. FIND ee 

END]. 

If } + 2 < SP THEN IF PTYPELI#2) = 7 THEN 

IF OPLEVELCPSTCI*#2]) > LEVOP*OPLEVELCPSTCII] THEN 
Te NOT COMBINEARITHMETICCI4*2) THEN GO TO FINS 


ae] 
Boys yet UNTIL IF v<PaAcKEr) THEN TRUE ELSE PTYPECJ1403 
IF J < PBACKEI? THEN GO TO UNARY 
FOR K @ Je Ti .90 
CASE PTYPECK] OF _ 
BEGIN GO TO FAUT; 
x it STRING NAME 
3 
% 2: FUNCTION NAME? 
GO TO IF KJ THEN UNARY ELSE FAUT; 


i ‘ : : : : : : : es : : 


rMsure 


7 A Husineas Forms, inc. sv aves 


yw 
i 
oactied ps 


! 


i 


t 
i 
| 
i 


- 11920000 


11930000 
11940000 


11950000 


11960000 
11970000 


11980000. 


11990000 
12000000 
12010000 


Pee aes 
12030000. 
~ 12080000) 


12050000 
12060000 


12070000. 


12080000 


42090000 | 
12100000 | 


12110000 
12120000 


12130000. 

12140000 
12180000 
12160000 | 


12170000 
12180000 


12190000 
12200000 
12210000 | 
42220000 | 


12230000 
12240000 
12250000 


12260000 


12270000 


12280000 3 
12290000 


12300000 
12310000 


42320000 


12330000 


12350000 


12360000 


12370000. 

42380000. 
 $2390000. 

42800000 


12410000 
12420000 


12430000. 


12440000 


42480000. 
12460600 


12470000 
12480000 


% 3s LITERAL 
3 


x 4t "¢" OF GROUP 
ine GO TO IF KeJ THEN UNARY ELSE FAUT? 
%.52 STRING VARIABLE 
BEGIN SYNTAXERRC16sPLOCEKI)3 
GO TO FINS 
EnD3. 
% 68 INDIRECTIONs UNCOMBINED 


IF NOT COMBINEINDIRECTIONCK) THEN GO TO FIN} 


% 71 CONSECUTIVE ARITHMETIC OPERATORS 
BEGIN SYNTAXERR(16*PLOCEK])3 : 

Go To FINS 

ENDS 

% at "/" OF FIXED"LENGTH VAR 
GO TO IF K#J THEN UNARY ELSE FAUTS 

% Of STR REF» PATTERN & REPLACEMENT 
(GO TO FAUT | 

-¥ 109 INDIRECTION COMBINED 


41: NOT IN USE 
G0 TO FAuT3 
NOT IN USE 

.G0-TO Faut; 

43: "#" OF STR VAR 
BEGIN SYNTAXERRC16>PLOCLKI1)3 
6n TO FINS 
ENDS 

% £49 LABEL IN GOrTO PART 
Go TO FAUTS 
137 EXPRESSION 


16% ARITH EXPR 

3 

£179 Vac” OF BAL VAR 
GO TO FAUTS | 

% 18: STR REF & PATTERN 
% 


ae ee 
_ 
ne 
= 


2 8e 


60 TO FaAUT3 


19: COMPLETE ARITH EXPRe#REMOVE STRING CONVERT 


_ ,PSIZECKI « PSIZELKI = 23 
K 208 "SC%> "FC OR "COC" OF GORKTO PART 
G0 TO FAUT 
—& 219 COMBINED Go-To PART 
Go To FAUTS 
END CASES} 


N @ 03 


FOR K ¢ Je ted, 1 00 


N © N # PSIZECKI3 
PTYPELK] © 03 
END? 


MOVE (Ns SCRATCH #] 20s CODECPPOINTE VI] gWJsPPOINTEW), C33 


PSIZELJ] © N32 

PTYPECJ] « 163 ’ INCOMPLETE ARITH EXPR 
COMBINFARITHMETIC * TRUES — 

60 TO FINS 

FAUT! 


BEGIN MOURF ASE CIT(GODELPROINT Lada SL ePROINTEKI«CrSCRATOHEN, WisN.C)3 


®ee82e@6.8fm6mUhmUmCOUC HHWUC OUCMHUCOUC RUC“ UCU 


e® @ @ 08@ 080 080 @ 


®@®eeneve5eeeeeeeeeeeee8 ee 8 @ 4 


42490000 


12500000 
12510000 


_ 12520000 


12830000 
12540000 
12530000 
12560000 
12570000 


12580000 


12590000 


12600000 
12610000 


12620000 
12630000 
12640000 


12650000 
fapasone 
12670000. 


12680000 
12690000 


12700000 | 
12710000 
12720000 

12730000 | 


12740000 
12750000 


12760000. 


12770000 


- ¢2780000. 
42790000. 


12800000 
12810000 


12820000 
12830000 
12840000 
12850000 | 


12860000 
12870000 


. 12880000 | 
- $2890000 
42900000 
42910000 


12920000 
12930000 


12940000. 
42950000 
42960000. 
12970000 — 


12980000 
12990000 


13000000 


13010000 


43020000 
13030000 


13040000 
13080000 


WRITEINSTS | 
SYNTAXERR( 402023 
WRITECPRINTs tl 7eCODEL «193 
WRITESTACKCSP 93 
‘SYSTEMERROR © TRUE} 
GO To FIN} 
UNARYS 
IF PSTCI} = ten THEN 
BEGIN MOVECK@PSIZELT +1) +CODELCUGPPOINTE IT 41))WJedeCeSCRATCHE*]20)3 
AA Ww Nt} 
MV C20 AAs Gs SCRATCHEK W1eKe C3 
MOVECKS2eS8CRATCHE #] 20sCODEL(CUePPOINTCIIJ)W)9d,C)5 
PTYPECI¢1] ¢ 03 
PYYPEFIJ «© 165 % ARITH EXPR*"NO STRING CONVERT 
PSIZELI}] « K+23 
_COMBINEARITHMETIC © TRUES 
60 TO FINs 
END ELSE 
a CANT BE USED AS UNARYS 
BEGIN SYNTAXERR¢E11*PLOCCII)3 
GO TO FINS 
ENDS 
FINS 
TF SYSTEMERROR THEN INFORMOC20)3 
% IF INFORM THEN WRITEINST; 
END COMBINEARITHMETICS 
Reweeewea ae COMBINEARITHME TIC ta kkk ee ee ER EERE EE RNA EAR RS 
Reaas wea sCOMBINEFUNCTIONS & ea kena Wea e ee EEER RH ETRE ERER ENE TUNER TEER EH EE 


PROCEDURE - CONBINEFUNGTIONCMKS)3 


VALUE MKS? 

INTEGER MKS} 

BEGIN INTEGER Ts Je NE 

% IF INFORM THEN INFORMOC25)3 
N # Jj # Of 


FOR I * MKS#1 STEP 4 UNTIL SP=1 DO IF PTYPECI] ¥ 0 THEN 


BEGIN MOVECPSIZECI}.» CODELPPOINTC YI. WisPPOINTEIJ.Ce#SCRATCHE UWI eJ.C)3 
eae & Maree 

Je J + PSIZECII3 . 

PTYPEEIJ © 08 %&% WIPE OUT ELEMENT 

N.@0N # 43. 

END : = 


“MV C3eCODELCTEPPOINTEMKS]). Wiel, C*SCRATCHEJ.WI2d,C)3 


MVC LaeNs Pe SCRATCHE J aW]eJeC¥3)3 

MOVE C J#aeSCRATCHE #)20,CODELTI, Wiel e023 
PTYPELMKS] « 153 % EXPRESSION 
PNAMEEMKS) | « FALSES 


PIR # T # CPSIZEEMKS]eJ#4)3 


% IF INFORM THEN WRITEINST3 
END COMBINEFUNCTIONS 
Rewak eee COMBINEFUNCTION#R HER ARAEREN EEE EER EE NER EERE NAR 
Bw wee COMBINE GOT OPAR T 90 fee Wt ie iia i ie a TOR RO TO I I ae i ok 
BOOLEAN PROCEDURE seed aes aula elt eae 
VALUE MKS}. 
INTEGER MKS} 
BEGIN. 
LABEL FAILs FAUT» FINS 
INTEGER Is M3 


13060000 ¥ IF INFORM THEN INFORMO(24)3 
13070000 IF PTYPELMKS) # 20 THEN GO TO FAUTS 
13080000 M «+ MKS 4-13 
13090000 IF PTYPEEM) = 6 THEN & INDIRECTION 
43100000 = BEGIN 
13110000 = GET NUMBER OF INDIRECTIONS! 
13120000 == CHARECCODELPPOINTEM) »WIsPPOINTEM] C41 )3 


13130000 IF 1 > 1 THEN ; 
43140000 BEGIN IT « I is 
: 13150000 © MvCleTs7sCODECPPOINTCMJ WISPPOINTOM]4C4¥1)3 % DECREASE BY $00 

13160000 IF NOT COMBINEINDIRECTIONCM) THEN GO TO FAIL3 
{3170000 END ELSE % MOVE BACK TO Ms 

131480000  —— BEGIN PTYPEL[M41) © 03 
13190000 PPOINTEMY « PPOINTEM4133 
13200000 PLOCEM] « PLOCEIM41}3 

13210000 = PSIZerM) « PSIZEEM41}3 
13220000 


ENOs 
- 13230000. PTR « PPOINTEM] + PSIZEEMI3 
13240000 = STORECHARSCis"L"e7)3 % LABEL INDIRECTION CODE 
13250000 PSYZEEM}] © PSIZECM}] + 13 
13260000 PTYPEEM)] © 143 &% LABEL EXPRESSION 
13270000 — ENDS 
13280000 IF PTYPEEM) # 44 THEN. 
13290000 BEGIN SYNTAXERR(CGsPLOCEIM})3 % ILLEGAL LABEL 
13300000 GO TO FAIL3 
13310000 ENDS 
43320000 FOR I « Met STEP 1 UNTIL SPe{ DO IF PTYPECI) #¥ 0 THEN 
13330000 BEGIN SYNTAMERR CBs PLOCE395 % ILLEGAL LABEL 
43340000 GC To FAIL3 
43350000 END 
13360000 PTR ¢ PROINTEM) + PSIZECMI3 
13370006 PSTZF( MKS) « PSIZECM?3 
13380000 PTYPEEMKS) « 243 % GO*TO PART COMBINED 
13390000 PPOINTEMKS) © PPOINTIM]3 
13400000 PLOCEMKS}) « PLOCEM]3 
13410000 COMBINEGOTOPART « TRUES 
13420000 GO TO FINS 
43430000 % 
13440000 FAUT? 
.. 13480000  WRITEINSTS | 
13460000 SYNTAXERRCG000)3. 
43470000  =WRITESTACKCSP)3 
43480000 SYSTEMERROR © TRUES 
13490000 FAIL? 
13500000 If SYSTEMERROR THEN INFORMOC24)3 
_4138149000 COMBINEGOTOPART * FALSES 
13520000 FING 
13530000. 1F INFORM THEN WRITEINSTS 
13540000 END COMBINEGOTOPART2 
{3550000 YeeasewatCOMBINEGOTOPAR THREE HEHE REHREHAHEREHEOREHER HEHE R EMER ERE RE 
13560000 Seta xec ae COMB INE GROUP & ee ee eae EEE EER EEE REE EE ENE KE 
__13570000 BOOLEAN PROCEDURE EOMa SNE gn oUr HRS eOaN] 
-.  $3880000. VALUE MKS» CONS 
~ 43590000 — INTEGER MKS3. 
~£3600000. BOOLEAN CON; 
13610000 BEGIN 
13620000 LABEL FAUTs FAYL> FINS 


®eeeeseeeeeweeweweenwneeeeneau50neneee 


a a ee ee ee a or ey Vy Ve ie” ie a ae | 


VAt2t 


foots Pytiness iris, jac. ay 
@®eeeeeeee@eeeeeeee¢¢e0¢e0 °®0 
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i 
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| 


! 
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\ 
j 


| 
! 
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13630000 BOOLEAN ARITHS 


% FOR DELETING PARENS AROUND ARITH EXPRS 


13640000 INTEGER ERRNO» ERRPOINTs Is Ja Ke NB 


13650000 % 
13660000 % IF INFORM THEN INFORMOC21)3 


13670000 COMBINEGROUP © ARITH « FALSES 
13680000 FOR f * MKS STEP 1 UNTIL SPet DO IF PTYPEtT] 4 0 THEN 


CASE PTYPECT) OF 


_ 13690000 


13700000 
13710000 


13720000 | 


13730000 
13740000 


13750000 


43760000 
13770000 


13780000... 
-£3790000 | 
~ 43800000 | 

13810000 


13820000 
13830000 


13840000 
13850000 
43860000 

13870000 | 


13880000 
13890000 


43900000 | 
13910000. 

43920000. 
13930000 


13940000 ~~ 


13950000 


13960000 | 
13970000 


13980000 


“13990000 
14000000 


14010000 


14020000 


14030000 


44040000 
44080000. 


14060000 
14070000 


14080000 
44090000 
-- £6400000 — 
~~ -$4110000— 


14120000 
14130000 


14140000 


14150000 
14160000 


-.. 14170000 


14180000 
14190000 


* 


in 
3e 


BEGINS 
1! STRING NAME 

iF ne ee 

2t FUNCTION CINCOMPLETE) 
Go TO FAuTs 

“LITERAL 


3 
4t START OF GROUP 
efuhe FAUT3 
NOT USED 
"a0 To FAUT} 


62 SN**INWDTRECTIONs UNCOMBINED 


IF NOT COMBINEINDIRECTIONCI) THEN GO TO FINS 
7t ARITH OPERATOR: 

BEGIN. 

Te NOT COMBINEARITHMETICCI) THEN GO TO FIN} 

WHILE I > O AND PTYPECTI416 DO IT-e I * £3 % FIND RESULT 


Ye PTYPEFI) #4 16 THEN GO TO FAUT; 


a eR 


INSERTSTRINGCONVERT(T)3 
ARITH *& TRUE? 
ENDS 


AS FIXED*LENGTH "/" | 
G0 TO FauT3 


St STR REFs PATTERN & REPLACEMENT 
Go TO FAUT3 
10% INDIRECTION COMBINED 


ti: NOT USED 
GO TO FaAuT3 
{2% QMARK=#-ERROR | 
GO TO FAUT}. 
13: "e" STR VARe#ERROR 
GO TO. FAUT 
143 LABEL IN GO*TO PART 
GO TO FauTs 
134 EXPRESSION 


16% ARITH EXPR*"NO STRING CONVERT 


BEGIN 


INSERTSTRINGCONVERT(I)} 
ARITH © TRUES % MIGHT BE ARITH EXPR 


ENDS. 


171 i a OF ‘BAL VAR 
Go TO FaAUT3 


18: STR REF & PATTERN 


60 TO FAUTS 
191 COMPLETE ARITH EXPR 

ARITH & TRUES 

20: "Se%» "FO™, OR "C" OF GO-TO PART 
GO TO FAUT 


4 
fa 


cs 
. 
— 


‘ ftuere Business “ors, tia. ay 4i% : 


I 
i 
i 
H 
i 


| 
1 
i 
] 
{ 


14200000. 


14400000 IF 
14410000 IF 
44420000 


14430000 
14440000 


14460000 
14470000 


14490000 


“14800000 


14590000 


143510000 


“44880000 IF 


14480000 


% 21: COMBINED GO*TO PART 
14210000 60 TO FAUT) 
14220000 END CASES3 
14230000 N ¢ J © 03 
14240000. FOR I ¢ MKS STEP 1 UNTIL SPe4 00 IF PTYPECT) # 0 THEN 
14250000 BEGIN 
14260000 N@© N 4+ 13 
14270000 MOVE CPSIZECY3sCODELPPOINTEI3« WIsPPOINTECIJ,CeSCRATCHE JWI] eJeC)3 
14280000 IF N $ 1 AND NOT CON THEN 
14290000. BEGIN PNAMECMKS} ¢ PNAMELI]3 
14300000 PTYPECMKS) «© PTYPELII3 
14310000 END ELSE PTYPELI) « 03 
44320000 Jy * y+ PSIZECII 
14330000 ENDS 
14340000 IF J = 0 THEN 
44350000  —s- BEGIN AA © "x00"3 
14360000 MV CJe3sAAv Sp SCRATCHE#] 9093 
14370000 PTYPEEMKS] «+ 13° % STRING NAME 
14380000 — -PNAMEEMKS) « TRUES 
14390000 ENS 


N > { THEN ARITH © FALSE? % NOT A SIMPLE ARITH EXPRe 
ARITH THEN 7 . _ 

BEGIN PTYPErMKS] € 193 % COMPLETE ARITH EXPR 
PNAMEEMKS] « FALSE3 


END ELSE 


N > 4 OR CON THEN 
BEGIN AA © N & "C"C369421673 


MV C25 AAs Os SCRATCHE J WIed.0)3 


ee en ee ee 

PNAMEEMKS} e FALSE3 
PTYPECMKS) « 153 & EXPRESSION 
END} 


14520000 MOVEC Js SCRATCHE*]202CODELCLePPOINTEMKS)) sWleleC)3 
14330000 PTR « I + (PSIZELMKSJe J 23 


14540000 COMBINEGROUP + TRUES 


14550000 GO TO FIN3 


96860000 Bc 
14570000 FAUTI 


14580000 


14600000 
14610000 


24620000 


14630000, 


WRITEINSTS 
SYNTAXERR( 402093 
WRITECPRINTs i 7eCODELWI)3 


WRITESTACKCSP)5 
_SYSTEMERROR « TRUES 


6O To FINS 


14640000 FAIL! 


14630000 


14670000 
14680000 


44660000 FIN? 


SYNTAXERRCERRNO*ERRPOINT) 5 


mF SYSTEMERROR THEN INFORMOC2L)3 


ae IF INFORM THEN WRITEINSTS 


14690000 END COMBINEGROUPS 


14700000 Saeeeee ae COMBINE GROUP a eo i te tet ee Ee ea Ri I KR ta keh kitk 
14740000. Reewexeee COMBINE INO LRECTION& Het WN ek RARER ERE EE ERE EERE ERR EEE EH 


14720000 BOOLEAN PROCEDURE COMBINEINDIRECTIONCMKS)3 


14730000. 


14780000 | 


VALUE MKS3 ~ 
INTEGER MKS3 


14730000 BEGIN INTEGER Te ERRNO» J» Ke 
14760000 LABEL FIN» FAIL» FAUT 


. H ce 2 > io = 7 s 7 < 
: ! i ee : : puss : : es : ; 
eee | re [eae : : : : on : : Be i : 


14770000 % 

14780000 ¥ IF INFORM THEN INFORMOC22)3 

14790000 FOR I * MKS STeP 1 UNTIL SP#2 00 IF PTYPECI] = 6 THEN 
14800000 BEGIN 

14810000 CASE PTYPELIe1] OF  % CHECK FOR SYNTAX ERRORS 


i 


iduare Busivass Forms, ing. oy feaia . 
‘ : ay foes : = = t AG ; boosetein : Leena aod : be ett mas : . 
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ine 


I 
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14820000 | BEGIN GO TO FAUTS 
14830000 %& 11 STRING NAME 
14840000 BEGIN J « "3"3 % TO MARK AS NON*@INPUT STRING NAME 
14880000 MVCie de 7s CODECPPOINTE I 44), WI ePPOINTECI41),0)93 
14860000 —— _END$ 
14870000 as FUNCTION@* INCOMPLETE 
-14880000— — $ & TO BECOME AN ERROR EVeNTUAEY 
44890000 38 LITERAL 
14900000 } 
14910000 4t GROUPING@*INCOMPLETE 
_...14920000 = BEGIN ERRNO © 273 
44930000 Go TO FAT) 
14940000 | SENDR ooce 
44980000  «=% 5! NOT ‘USED. 
14960000 60 TO FAUT? 
14970000 6 INDIRECTION="SHOULD NOT OCCUR 
14980000. 60 TO FAUT3 
44990000 7% ARITHMETIC OPERATOR 
45000000 BEGIN ERRNO © 343 
45010000 60 To FATL3 
15020000 ENDS 
145030000 8! FIXED*LENGTH "/*" 
45040000. BEGIN ERRNO © 343 
45080000 | Go TO FATLS 
45060000 ENDS 
48070000 ~—s& STR REFs PATTERN & REPLACEMENT 
15080000 60 TO FAUT3 
15090000 10% INDIRECTION COMBINED 
15100000  — Gn TO FAUTS 
15110000 113. %" 
45120000 BEGIN ERRNO « 343 
451390000. Go TO FAILS 
15140000 ENDS 
13150000 12: QMARK#*ERROR 
15160000 G0 TO FAUT: | 
15170000 132 "#* STR VAR | 
15180000 BEGIN ERRNO « 343 
45190000 «GO-TO FATLS 
15200000 END3 
15210000 {4 LABEL IN GO"TO PART 
45220000 60 TO FAUT? 
45230000 i EXPRESSION 
48260000. 
lace ok as “INCOMPLETE ARITH EXPRESSION 
15260000 INSERTSTRINGCONVERT(193 
15270000 17: "«*c" OF BAL VAR 
15280000 G0 TO FAUTS . 
15290000 18: STR REF & PATTERN 
15300000 GO. TO FAUTS 
15310000 191 COMPLETE ARITH EXPR 
13320000 3 
15330000 20: "Se", "FO, OR "C# OF GOTO PART 


a 
@ @ 


fangre Business Paris, lac.oe pat 
eo : ‘ Pi : 1 : : : : , : 


15350000 
15360000 


15370000 


15380000 
15390000 
15400000 


18410000 


15420000 
15430000 


~ £8440000 


15450000 


15460000 


15470000 
15480000 


18490000 | 


15500000 


15510000. 
15520000. 


15530000 
15540000 
15560000 
15570000 


15580000. 
15590000 


15600000 
15610000 


(18620000 | 
48630000 


15640000 


15680000 


15660000 


13670000 | 


45680000 


15720000 


413730000. 
15740000. 


15780000. 


13760000 
15770000 


15780000 
15790000 


~ $5830000 


43840000 
15880000 


13880000 


~ 15890000 


15900000 


15340000 - 


15550000 | 


Veea wera COMBINEINOLRECTION& tata te eee HAN ER EEN ERE ERR 
Racesewe ae COMBINESTRVARNAME cece ek ee eR ee Re ei et 


BOOLEAN PROGEOURE. COMBINESTRVARNAMECMKS 93 


— -$5690000 
/ 15700000 
15710000 


GO TO FAUT3 
% 21 COMBINED GO"TO PART 
60 TO FAUT3 
END CASES3 
% INTERCHANGE ELEMENTS?! 
MOVE CKePSIZPCI+1] *CODECCJePPOINTEI 413) oWledeCeSCRATCHE #12093 
MVC3,CODECPPOINTCLIWIsPPOINTEI), Cs SCRATCHIK, W1eKeC)3 
MOVE CK43,SCRATCHE* J] s0sCODECPPOINTLCIJWIsPPOINTECI3¢C)3 
PSIZELI] «© K + 33 
PTYPECI] © 103 % INDIRECTION® COMBINED 
PNAMELI] © TRUE3 
PTYPELI4#1] « 03 % WIPE OUT NEXT ELEMENT 
COMBINEINDIRECTION © TRUE} 
GO To FINS 
ENDS 
% IF FALL THRU» NO ARGUMENT TO $3 
ERRNO « 34} 
GO TO FAIL? 
FAUT! 
WRITEINST? 
SYNTAXERR(402093 | 
WRITECPRINTs17sCODEC#I)3 
WRITESTACKCSP)3 
SYSTEMERROR « TRUES 
GO To FINS 
FAIL! 
SYNTAXERRCERRNOsPLOCEL 141393 
FING. 
TF SYSTEMERROR THEN INFORMO(22)3 
% IF INFORM THEN WRITEINST3 
END COMBINEINDIRECTIONS 


VALUE 
pee esl 


BEGIN LABEL EINs SUCCEEDS 


INTEGER f3 

% IF INFORM THEN INFORMO(23)3 
COMBINESTRVARNAME * FALSE3 

IF I*PTYPECMKS} # 43 AND I #4 147 THEN 


15800000 
45810000 
15820000. 


BEGIN WRITEINSTS 
 SYNTAXERR(4020)3 


WRITE CPRINT,»172CODEL #193 
WRITESTACKC(SP)3 


SYSTEMERROR + TRUES 
0 To FIND 


ENDS 


PTYPECNKS] + 03 
IF NOT COMBINE GROUP(MKSoF ALSE) THEN GO TO FINS 


IF NOT PNAMECMKS) THEN 


~~ $5860000— 
45870000 


BEGIN SYNTAXERR(S2sPLOCEMKS4#13)3 % INVALID NAME 


60 To. SUCCEED) 


ENDS 


Z MARK AS NON@ INPUT 


TF PTYPECMKS] = 1 THEN 2% IDENTIFIER@=*CHANGE TO "%" TYPE 


BEGIN I « "23 


A : ‘ Pane A ‘i : . ‘ i 3 ot ; 2 ; 


t 


{ 


Bact Paroese Paar, ae payer 
ee 
3 [Sittercity fie neiesinn i Pees : : : : . : oo 
i ee i : : : on ‘ ie : : : i i ; : 


15920000 
15930000 


13940000 


15950000 


15960000 


13970000 
15980000 
15990000 
16000000 


16010000 


16020000 


46030000. 


16040000 


16050000 
16060000 


16070000 
16080000 


16090000 | 


16100000 
16110000 


— 16120000. 

16130000 
16140000. 
.£6150000. 


16160000 
16170000 


_ $6480000 
- $6490000 
46200000 
46290000 
16220000 


16230000 


16240000. 
16250000 
16260000 
16270000 


16280000 
16290000 


16300000 


16310000 


 46320000_ 
16330000. 


16340000 
16380000 


16400000 
16410000 


_ 16420000 


16430000 
16440000 


16450000 
16460000 


16470000 


45940000 


IF 


MVCloTs7sCODELPPOINTEMKSI] WI» PPOINTEMKS34C)5 
END ELSE 

PTYPEEMKS] = 10 THEN % INDIRECTION**REMOVE "7" 
BEGIN PTYPECMKS] © 153 % EXPRESSION 


PSIZECMKS] « PSIZEEMKS) = 43 


ENDS 


SUCCEEDs. 


COMBYINESTRVARNAME «* TRUE; 


FING 


IF SYSTEMERROR THEN INFORMO(23)3 
-& TF INFORM THEN WRITEINSTS 


END COMBINESTRVARNAME$ 


Pewee eeekCOMBINESTRVARNAME RRR EHR R EAR ER ER EE Ok we ie 
Ree we eee e COMP LL Laake Rae Ee ERE RE ee Oa Re eee ee RK ke 


16360000 & 
46370000. 
{6380000 
16390000 % 


<a aan a 


THE INTERNAL FORM OF A SNOBOL PROGRAM IS DESCRIBED HERE? 
THE PROGRAM IS "SEGMENTED"s WITH A LABELED INSTRUCTION STARTING A 


SEGMENTs AND THE UNLABELED INSTRUCTIONS FOLLOWING IT ARE IN THE 
SAME SEGMENT, A SEGMENT IS A STRING, WHOSE "NAME" IS THE LABEL OF 


ITS FIRST INSTRUCTION® AND WHOSE "VALUE" IS THE INTERNAL CODED 
FORM OF THE INSTRUCTIONS IN THE SEGMENT, 
EACH SEGMENT STARTS WITH 2 CHARS GIVING THE LOC OF THE NEXT 


SEGMENTs FOR PATCHING PURPOSES 


EACH INSTRUCTION STARTS WITH A 7*CHAR "INTRODUCTION" GIVINGS 
1 CHAR! THE ILLEGAL CHAR 
29 CHARS! THE NUMBER OF THE INSTRUCTIONs AS GIVEN IN THE LISTING 
2 CHARS: THE LOCATION OF THE SUCCESS ExITs RELATIVE TO THE 
FIRST CHAR OF THE SEGMENT 
2 CHARS! THE SAME FOR THE PATLURE EXIT. 
ore ELTHER EXIT ISNT SPECIFIEDs AND THE NEXT INSTRUCTION IS 


UNLABELED» THE POINTER IS TO THE ILLEGAL CHAR AT THE START OF THE 


NEXT INSTRUCTION? IF THE NEXT INST IS LABELED» THE GO#TO PART 1S 
"FILLED OUT” WITH A TRANSFER TO THIS LABEL. 


‘THE INTERNAL CODE 1S! 


STRING NAMES AND LABELS IN THE GOTO PARTS ARE REPRESENTED BY 


A QUOTE FOLLOWED BY A 12@BIT (C2"CHARS) POINTER TO SYMBTABL, 


LYTERALS ARE REPRESENTED BY "@" FOLLOWED BY A 2"CHAR POINTER 


TO SYMBTABL. 
PATTERN MATCHES ARE INDICATED BY "=" FOLLOWING THE CODE FOR 


THE PATTERN) REPLACEMENTS ARE INDICATED BY "«#" FOLLOWING THE CODE 
FOR THE REPLACEMENT, (BOTH ARE POSTFIX OPERATORS») 
THE RESERVED LABELS ARE REPRESENTED AS FOLLOWS? 


END! te" 
RETURN? "=R" 
FRETURNS "eFN 
SYNTAX ERRORS GAUSE THE CHARACTER "X" WHERE THE STRING REFERENCE 


at Bee 


TPUNETTANS ARE POSTE DPERATORSs WHICH USE -A CHARACTERS! "#" 
TO INDICATE THE FUNCTION CALL* 2 CHARS FOR A POINTER TO THE 
SYMBOL TABLE ENTRY FOR THE FUNCTIONs AND 1 CHAR TO GIVE THE NUMBER 


OF PARAMETERS, 


INDIRECTION IS A POSTFIx OPERATOR CONSISTING OF A -"$" AND ONE 


CHARACTER. GIVING THE NUMBER OF INDIRECTIONS, NOTE THAT THIS MEANS 


THAT THE SYSTEM CANT HANDLE MORE THAN 63 CONSECUTIVE DOLLAR SIGNS 
WITHOUT USING PARENTHESES TO CAUSE A GROUPING, THIS IS NOT 
EXPECTED TO CREATE ANY HARDSHIPS WITH ANY USERS, 


eS i : Aiture @usingss Fares, ine. av Ree 
en i | 
_: 
i 1 : 2 ; ‘s ‘ s tak: .. ft 2 i . 
i H H : ; ; 1 ! : : : 
: i : : : i : : : i : 


16480000. 
16490000 
16500000 


36510000 & 
16520000 


16530000 


16540000 


16550000 
16560000 


16570000 
16580000. 


16590000 
16600000 


46610000 &% 


16620000 


16640000 
16650000 


16660000 | 


16670000 
156680000 


16690000 


16700000 
16740000 


16730000 
16740000 
16750000 


46760000 | 


16770000 


- 46780000 
167900006 


16800000 
16810000 


16830000 
16840000 


% 
x 
% 
% 
% 
x 
% 
% 
% 
x 
% 
% 
% 
x 
% 
% 
x 
& 
% 
% 
% 
% 
% 
% 
% 
% 
x 
% 
x 
x 
% 
% 
% 
% 
x 


16630000 & 


46720000 & 


(16820000 % 


THE FOLLOWING STACK ARRAYS ARE USED BY THE COMPILERS 


PLOCE*) HOLDS POINTERS INTO INSTC*¥J, TO THE START OF THE ORIGINAL 
CODE FOR THE ELEMENTs FOR OIAGNOSTIC PURPOSES 


PPOINTC#} HOLDS POINTERS INTO CODEL*)» TO THE START OF THE 


COMPILED CODE FOR THE ELEMENTS 
PSIZEC*} HOLOS THE SIZE OF THE COMPILED PIECE OF CODE 


PRACKE*) LINKS BACK TO THE START OF NEXTINGS OF GROUPINGS OR 


OF FUNCTION CALLS 


PST[£*] HOLDS THE OPERATOR FOR ARITHMETIC OPERATORS 
PTYPeCe#)] IS THE TYPE OF ELEMENT» AS FOLLOWS! 


ke 


it 
2n 
3s 
at 
51 


oF 


73 
at 
9% 


10f 


11 
12t 
133 
143 


415 


16% 
17% 


48e 


19% 
aot 


ut 


TGNORE*@COMBINED WITH EARLIER ELEMENTS 
STRING NAME 

START OF FUNCTION CALL (C##*) 

LITERAL 

#¢" AT START OF GROUPING 

STRING VARTABLE=*COMBINED INTO ONE ELEMENT 
INDIRECTIONs UNCOMBINED ($N) 

ARITHMETIC OPERATOR 

“/" OF FIXED*LENGTH VARIABLE 

STR REF, PATTERNs & REPLACEMENT COMBINED 
INDIRECTION» COMBINED CINCLUDES "I" FOR INPUT CHECK) 
NOT IN USE 
NOT IN USE 

wa AT START OF STRING VARIABLE 

LABEL IN GO*TO PART 

EXPRESSION (COMBINED) 

ARITHMETIC EXPRESSION*=NO STRING CONVERT ADOED 
we OF BALANCED STRING VARIABLE 

STR REF & PATTERN TOGETHER, 

COMPLETE ARITH EXPR (WITH STRING CONVERT) 
wSco, "ects OR "C" OF GOTO PART 

COMBINED GO-TO PART 


PROCEDURE COMPILECINST)3 ALPHA ARRAY INSTLOJs 


-$6880000 BEGIN LABEL 
16860000 NEXTs ILLEGAL? 

16870000 Ble LIT» STRe 
16880000 NAME» NAME 4s. CMA» GOTO, GTEART «. 
46890000 CONDENSEPATTERNs 

16900000 = CONDENSEREPLACEMENTs 
16910000 OLR» ash a ee 
16920000 ENDSTRVAR» 

16930000 ERROR» 

16940000: NOP» 
16950000 = OP, 

16960000  PARENERR, | 
16970000 QMRK, RETURN» 
16980000 MESFIL» 

_.... 49990000  — SEMICOLONs START» Li 

—§ATC00000 Bo 

4700000 Seaneeene 

—$7020000 BOOLEAN. _ 

17030000 ARITHs 
17040000 ARF» 


er 


c 
: 170$0000 = FIXEMLENGTHs 
17060000 NF pe 
¢€ 17070000 PATTERNe 
7 17080000 REPLACEMENT» 
17090000 SVF3 
. 17100000 BOOLEAN ARRAY COMPILINGFCTCOIS5O}3 
17110000 INTEGER 
17120000 FIRSTCHAR» % FLAGS FOR FIRST OF INSTs 
€@ 17130000 Is 
17140000 se 
17150000 T? 
€ 17160000 TEMP; 
47170000 8 . 
: 17180000 P © SCANCHARC® "5" MeINSTL #12093 
-¢ 17190000 START! 
- 17200000 FOR I + © STEP 1 UNTIL 5 00 BACKTRACKCOsT] + 03 
SE 17210000 FIRSTCHAR # MKS « PARENCOUNT « 03 
-@. -¢7220000 GILAST « GT} . 
: . 47230000 PATTERN « REPLACEMENT ¢ GT ¢ GTS + GTF « SYSTEMERROR + SVF « ARF « 
— 17240000 FIXEDLENGTH « FALSES 
:@ 17280000 P + P + 13 
: - 17260000 P + P + SKIPCHARC” “SINSTCP.WIsP oC )3 
‘ 17270000 IF P 2 INSTSIZE THEN GO TO RETURN} 
@o. 17280000 SP e 43 
47290000 IF DATACOMF THEN IF INSTNUM MOD 10-8 0 THEN. 
17300000 Ip INSTNUM = 0 THEN & RETURNs LINE FEED. 
e {7310000 BEGIN MVC3eCRLFeSsDCWRITEL #22093 
= _.17320000 ——_sIF OUTPUT THENS 
47330000 END ELSE 
eo 17340000 | % WRITE INST #1 
aS 47380000 its WPASABETTICIS; INSTNUMDS % TYPe # ON TELETYPE. 
17360000 NEXT! 
¢ 17370000 IF ¢€SPeSpP4#t) 2 STACKSIZE THEN 
: _.17380000 | BEGIN SYNTAXERR(212P)3 
17390000 ep. 19 RETURNS 
@ 17400000 D3 
= 17410000 % IF INFORM THEN 
17420000 % BEGIN MVCGsINSTCP WN] eP,CeAAv2)3 
@ 17430000 % INFORMIAC22SPsAA)3 
. 17480000 % ENDS. 
17450000 PPOINTESP) «# PTR 
e@ 17460000 PLOCCSP] ¢ P3}  % SAVE FOR SYNTAX ERRORS 
ee 17870000 =F P 2 INSTSIZE THEN GO TO QMRK3 
17480000 CASE CHARTYPELCHARCINSTEP W1sP,C)) OF 
@ 47490000 BEGIN 
o 17500000. % Ot ERROR 
17510000 BEGIN SYNTAXERR(39P)3 
eo 17520000 . GC ‘To RETURN) 
Ce ee ee 30000  OENDP oe 
17540000 % 1% BLANK 
@ 17550000 BEGIN P « P # SKIPCHARC” ",INSTEP WIeP.C)3 
~ a 17560000 SP « SP =» 13 
17570000 GO TO NEXT 
© 147580000 ENDS 
417590000 % 28 *%er OR Man 
17600000 BEGIN | 
@ 17610000 IF SP < 4 THEN 
 ] a a * a 


@® e@ eeeeeese @® @ @ @ @ @ @ 6 © @ @ @ @ @ 


eeoeee5eveeeeeenwneeee ee &@& @ @ 4 


17620000 


17630000 
17640000 
17680000 


17660000 


17670000 


17680000 _ 
17690000 


17700000 
17710000 


17730000 


_ATTA0000 
17750000 


17760000 


17770000 


17780000 


47790000 
47800000 


17810000 
17820000 
17830000 


47840000. 


17850000 
47860000 | 


47870000. 


17880000 
17890000 


17900000 


17910000 


47920000. 
17930000 


17940000 


17950000 | 
17960000 


17970000 


47990000 


18000000 


18020000 


48030000 
48040000” 


18050000 
18060000 


48070000 ss. 
~ ¢8980000 
48090000... 

18100000, 


18110000 
18120000 
18130000 


18180000 


IF 


BEGIN SYNTAXERR( 69P)3 
6O TO RETURN} 


END3 
NOT CPNAMECO] OR PTYPELO1]26) THEN 


BEGIN SYNTAXERR(15eP)3 % REPLACEMENT IN VALUE EXPR 


GO TO RETURNS 


ENDS 


TF 


pratense 
IF 


IF 


aS 


“ARF THEN 


BEGIN SYNTAXERR(132P)3 & EXTRA "ew OR Nat 


(GO TO RETURNS 


ENDS 

PARENCOUNT # 0 THEN 

BEGIN SYNTAXERR(27sP)3 % MISSING wpe 
GO TO RETURNS 

ENDS 

SVF THEN 


BEGIN SYNTAXERR(389P)3 % MISSING ‘tet 


Gn TO RETURN 


END3 
GT THEN 
BEGIN SYNTAXERR(7sP)3 % UNRECOGNIZED GOTO CONSTRUCT 


GO TO RETURNS 


END} 
ARF « TRUES 


48010000) 


18140000 ——O 
18150000 

18160000 | 
18170000 


PP « Po 4. $8 
‘CONDENSEPATTERNt 
% IF INFORM THEN INFORMO(27)3 
FOR t + © STEP 1 UNTIL SP#4 00 


CASE PTYPECT] OF 
BEGINS %& IF Os IGNORE 


42 STRING NAME? 
; 


% 2: START OF EUNCTION CALL 
60 TO ERRORS 


% 3! LITERAL 
gar ™O" OF GROUPING 


— GO TO ERROR} 

* S: STR VAR 
3 

% 6% INDIRECTION 

IF NOT COMBINEINOIRECTION(T) THEN GO TO RETURNS | 

% 78 ARITH OPERATOR 
BEGIN ITF NOT COMBINEARITHMETICCI) THEN GO TO RETURN} 
WHILE £ > O AND PTYPELIIJ416 00 I « f= 13 %& FIND RESULT 

YF PTYPECI] # 16 THEN GO TO ERROR; 

_INSERTSTRINGCONVERTCI)3 

ENDS 

% 81 "/" OF FIXED*LENGTH VAR 
GO TO ERRORS 

% 92 STR REFs PATTERN & REPL 
GO TO ERROR} 


‘108 INDIRECTION COMBINED 


; 
“141 UNUSED 
GO TO ERROR} 
% 12: UNUSED 


Moora Business Sarens, ine 3 a hate 
Deane oe : 2 ees i i fea i i peo i : i i 
A SE geet ; ‘i : See : Sok i } : Pee ‘ ‘ i : : 


18190000 


18200000 
18210000 


18220000 | 


18230000 


48240000 
48250000 


18260000 
18270000 


18280000 


18290000 


18300000 
418310000 
18320000 


18330000 


18360000 


18380000 
18390000 


18400000 
184 ¢0000. 
18420000 
48430000 


18440000 
18480000 


18510000 


. 183520000 
18530000 
18540000. 
18550000 — 

18560000 


18870000 


18580000 _ 
18590000 
48600000 
48610000 
18620000 


18630000 


18640000 
18630000 
48660000 
18670000 


18680000 
18690000 


48700000 


18710000 
18720000 


48730000 


18740000 
18780000 


18340000 
18350000 


LESPOONO 


ti 


GO TO ERRORS 
% 13: "*" OF STR VAR 
GD TO ERROR} 
¥ 14: LABEL IN GO#TO PART 
GO TO ERROR} 
15! EXPRESSION 


INSERTSTRINGCONVERT(I)3 
17% "*¢" OF BAL VAR 
GO TO ERRORS 
181 STR REF & PATTERN 
— 60 TO FRRORI 
% 19! COMPLETE ARITH EXPR 


4 
¥ 16: ARITH EXPR="NQ STRING CONVERT 
% 
x 


% 208 "Set, "FC, OR MC" OF GORTO PART 
GO TO ERROR} 

% 21% COMBINED GO-TO PART 
60 TO ERROR: 

END CASES? 

¢ 12 « OF 


FOR ¢ «+ 1 STEP 1 UNTIL SP#1 DO IF PTYPELI] # 0 THEN 


18460000 
48470000 
- 8880000 
48490000 


oF 


BEG 


IN. 
MOVECPSIZECI IJ sCODECPRPOINTCIJ«W)sPPOINTCI). CoSCRATCHEI2eW1912003 


te ¢ 12 * PSIZELTI5 
14 © Ti-+ 43 
PYYPErI] « O38 


ENDS | 


1121 THEN 


BEGIN 
sae PTYPE?O] | s 1 THEN 


BEGIN AA & "a3 
MVO Le AAe Te CODECPPOINTCO) WIePPOINTLO) C23 


-END ELSE 


Ip PTYPELO] = 10 THEN 


BEGIN PTYPELO) © 153 % EXPRESSION 
— PSTZELO] * PSIZECO] = 143 % DROP "I" 
ENDS 


PTR @ PPOINTEO)] * PSIZECOI3 


STORECHARS(12"S%57)3 


STORECHARSC12eSCRATCH(O190)3 
STORECHARS(12"3%27)3. 


PSTZetO) « PSIZEL0] + 12 + 23. 


FIRSTCHAR,C4382] © 33 & STR-REFs PATTERN EXIST 


PYYPELO] « 183 % STR REF & PATTERN 


END ELSE ee 
FIRSTCHAR, 00342) © 23) % STR REF» NO PATTERN 
GT THEN — & PUT IN ayn AS GOTO DELIMITER 


SP 


IF 


BEGIN STORECHARS(Le%/ 5793 


Psrzer0) » PSIZELO] + uy 
END; 


PATTERN « TRUES 
“OF 


PBACKEMKSe1) © OF 
% IF INFORM THEN WRITEINSTS 


G0 


TO NEXT3 


ENDS % CASE FOR “z" OR "eo", 


@® @ ee ee 6 


. BAmwore Bitiqess Boas, ig. ay 


18770000 
187806000 


18790000 


18800006 
18810000 


18820000 


18830000 
188640000 


18850000 


48860000 


186870000. 


18880000 
18890000 
18900000 
18910000 
16920000 
18930000 


18940000 
18950000 


18960000 


18970000 
18980000 


18990000 
49000000 
19010000 
19020000 


19030000 


19040000 
19050000 


19060000 


19070000 
19080000 
19090000 


“19100000 

49110000 
- 19220000 — 

49130000 


19140000 


19150000) t 
19160000 


49170000 


 $9140000 


19190000 
19200000 


19210000 

19220000 | 
49230000 
19260000. 


19250000 
19260000 


19270000. 
“19280000 
49290000 | 
19300000 


19310000 
19320000 


18760000 x 31 LETTER, DIGIT» OR PERIOD 
GO TO NAME 
Zar new 


60 TO LITs 


% 53 wen 


BEGIN 


IF GY THEN TF PARENCOUNT = 0 THEN GO TO GTPART3 


COMPILINGFCTEPARENCOUNTe¢PARENCOUNTS41) © FALSE 
P# Po+ 43 

PBACKESP) © MKS3- 

MKS. « SP} 

PYYPELSP] © 43. & *CF@MBEGIN GROUPING 

PSTZECSP] ¢ 03 %& NOTHING TO STORE IN CODE HERE 
GO To NEXT; 

ENDS 


4 63 wan 


BEGIN 


IF PARENCOUNT € 0 THEN 


BEGIN SYNTAXERRC12eP)3 &% EXTRA RIGHT PAREN 
GO TO RETURNS 
ENDS 
IF SvVF ANG NOT FIXEDLENGTH THEN IF PARENCOUNT = 1 THEN 
~~ YPOPTYPEEMKS] * 17 THEN 
BEGIN — 
IF CHARCINSTECPeW]eP C41) # *#" THEN 
BEGIN SYNTAXERR( 38eP+41)3 
60 TO RETURNS 
END} 
P# Po + 43 % SKIP ">" 
PARENCOUNT « 0} 
60 TO ENDSTRVAR} 
END BALANCED VARIABLE ELEMENTS 
IF GT AND PARENCOUNT@1! THEN % ENO OF A PIECE OF THE GO*TO PART 
BEGIN 
If NOT COMBINEGOTOPARTCMKS) THEN GO TO RETURN} 
END ELSE 
IF COMPILINGFCTEPARENCOUNT) THEN 
BEGIN. 
IF NOT COMBINEGROUPCMKS+{isFALSE) THEN GO TO RETURNS 
COMBINEFUNCTIONCIF PTYPEEMKS]a2 THEN MKS ELSE (MKSePBACKEMKS}))3 
END ELSE 
BEGIN PTYPECMKS) © Of &% WIPE OUT "C" ENTRY 
Tr NOT COMBINEGROUPCMKSs TRUE) THEN GO TO RETURNA 
END} 
PARENCOUNT « PARENCOUNT = 43 


Pe# P+ 13 


IF. PTYPELSPeMKS)42, THEN MKS * PBACKEIMKS)3 


GO TO NEXTS 


ENDS 


B7t Maw 


60 To STR3 


% Bt tere 
G0 To DLRI 
Oe Mew So*TG PART 
GOTO? 

BEGIN 


IF SVF THEN % UNMATCHED STR VAR #* BEFORE GO-TO. 


@®eeeeee#e#es @ @® © © @® @¢ ® @ @® 6© @® @ @ 


1 
i 


io Bosinget Farmas ine. s L4TcT 
i i cei re cee ; ' ; . te Sees 
i i ar i i : i i i : 7 i i : iene ; i : : 
i i i H : i : : : : : ! : : : : : 


19330000 | 
19340000 


19350000 


49360000 © 
19370000 


19380000 


19390000 


19400000 
19410000 
19420000 


19430000 

19440000 

19450000 
19460000 


19470000 


19480000 


19490000 
19500000 


19510000 


19520000 
19530000 


19840000 


19550000 
19560000 


A OSE QOOOO ee 


19580000 
19590000 
19600000 
19610000 
19620000 


_ £9630000 © 


19640000 
19680000 


19660000. 


19670000 
19680000 


19690000 — 


19700000 
19740000 


19760000 
19770000 
19780000 


149830000 


419840000 


19850000 
19860000 


19870000 


19880000 
19890000 


BEGIN: SYNTAXERR(38sPPOINT(SP=19)5 


60 TO RETURNS 


END} 


PF GT THEN 
BEGIN SYNTAXERR¢7sP)3 & UNRECOGNIZED CONSTRUCT 


GO TO RETURN: | 
_ ENDS 
IF PARENCOUNT # O THEN 
BEGIN SYNTAXERR(10*P)3 % PAREN COUNT NON*@ZERO 
GOTO RETURN 
ENOS 


GT ¢ 


TRUES 


Pe P+ 3 


PSIZFESP) « PTYPELSP] « oO} 
IF NOT ARF THEN 


BEGIN FIRSTCHAR, (4531) « 03 % NO REPLACEMENT 


‘60 TO: CONDENSEPATTERNS 


END? 
% REPLACEMENT TO BE CONDENSED 


CONDENSEREPLACEMENTS 


% IF 


INFORM THEN INFORMO(28)3 


FOR 1 ¢ 0 STEP 1 UNTIL SP#i 00 


CASE PTYPELI] OF 


x 


. 


& 


19720000 _ 
~ 19730000 
19740000 


"49790000 
49800000 
49810000 

19820000, 


Se 


BEGIN 


Ot IGNORE 
3 


1! STRING NAME 


, 
2? FUNCTION CALL 

GO TO ERROR} 
3t LITERAL | 

3 
4: "C" OF GROUPING 

GO TO ERRORS 
5: STR VAR COMBINED 

po TO ERRORS 

INDOIRECTION 

“tr NOT COMBINEINDIRECTIONCT) THEN GO TO RETURNS 
7! ARITH OPERATOR 

BEGIN 

IF NOT COMBINEARITHMETICCI) THEN GO TO RETURNS 
WHILE 1 > 0 AND PTYPECII#¥16 00 I ¢ Tet3 % FIND RESULT 


IF PTYPECTI] 4.16 THEN GO TO ERROR; 


INSERTSTRINGCONVERTCI)3 
ENDS 


88 "7" OF FIXED*LENGTH VAR 


60 TO ERRORS 


91 STR REFS PATTERN & REPLACENENT 
80 TO ERRORD 
10? INDIRECTION COMBINED 


‘Ait UNUSED 
GO TO ERRORS 


12! UNUSED 

GQ TO ERROR} 
13: "#" OF STR VAR 
GO TO ERRORS 


i 


. ’ Moore SGusiqegss pmecras, fc. ot peg 
. : : eae ears i pteetany : : ; j ; : 
: ; i E : ae : i : t H 


i 


49900000 


19940000 
19920000 


19930000 


19940000 
19950000 
19960000 


19970000. 


19980000 


19990000 | 


20000000 


20010000 
20020000 


20030000 
20040000 
20050000 


20060000 


20070000 
90080000 


20090000 
20100000 
20110000 


“20120000 ~ 
- 20130000 | 
~ 20140000. 


20150000 
20160000 
20170000 


20480000. 
20190000 


20200000 


~ 20210000 © 


20220000 


29230000 
20240000 


20250000 
20260000 


~ 20270000 


20280000 


_ 20290000 


20300000 


20310000 
20320000 _ 


20330000 
20340000 


20380000. 
20360000 


20370000 


20380000, 


20390000 
20400000 


20870000 
20420000 


20490000 


20440000 


20480000 


20460000 


14% GO*TO LABEL - 
GO TO ERROR} 


15: EXPRESSION 
; 
46% ARTTH EXPRe#NO STR CONVERT 
INSERTSTRINGCONVERTCY)3 
174 Mec" OF BAL VAR 
GO TO ERROR} 
18! STR REF & PATTERN 
IF ¥ # © THEN GO TO ERROR} 
19: COMPLETE ARITH EXPR 


Ed a= 8 830e ae a 8 60(e 


Bek Tae MF (Mm, OR 9¢" OF GO*TO PART 
GO TO ERROR} 

* 21% COMBINED GO*TO PART 
60 TO ERROR) 
END CASES} 


oe 

~ 
rer! 

Bal 


If PTYPECO] = 4 THEN % MARK As NON#INPUT 


BEGIN AA «© "%%) 
MV CLs AAs Po CODELPPOINTCOI«W)sPPOINTLOI< C)3 
END ELSE 
tPF PTYPELO] = 10 THEN 
BEGIN PTYPELO) « 153 % EXPRESSION 
PSIZEtO) + PSTZE(O] = V3 % OROP yt 
EnOs 
Ti ¢ 12 « 03 
FOR r+ 1 STEP 1 UNTIL SPet 00 IF PTYPELII#0 THEN 


BEGIN 
MOVECPSIZELT]sCODELPPOINTELJ WI sPROINTET] .ceSCRATCHEIZsW1s1200)5 
{2 ¢ 12 » PSIZECTI3 ; 

eo eee 

PrYPELI] « 03 


ENDS 
PTR « PPOINTLO) + PSIZELOI2 


FIRSTCHAR,C4S813 © 13 % REPLACEMENT EXISTS 


STORECHARS(C12sSCRATCHI0O],0)3 
STORECHARS (i etets7)3 


PSYZe lO] « PSIZELO] * T2 +4 13 


PTYPELO}] © 93 % STR REF» PATTERN & REPLACEMENT 


REPLACEMENT © TRUE 


SP. « 0} 
PBACKEMKS#11- © OF 


_&% IF INFORM THEN WRITEINSTS 


60 TO NEXTS 
ENDS % CASE FOR GO*TO "1" OR” 7” 


B10 Marsters OR Mxr 


GO To OPS 


S449 "yn 
BEGIN 


IF NOT COMPYLINGFCTCPARENCOUNTI THEN 
BEGIN SYNTAXERR(9sP)3 % ILLEGAL COMMA 
60 70 RETURNS 

ENDS. 


IF NOT COMBINEGROUPCMKS#1,FALSE) THEN GO TO RETURNS 


PBACKEMKS#1) © CIF PTYPECMKS)#2_ THEN MKS ELSE PBACKEMKS))3 
MKS « SP « MKS#13 
PeP + 13 


e 


e 


fdiae. Busigess Sars, ine. sy 


ve 1 i 4 ‘ i i eae 5 : : ane Hl 7 : : 


| 


20470000 


20480000 


ae TO NEXT3 
ENDS 


20490000 % toe "ye 


20500000 | 
20510000 
20520000 
20530000 

20540000 


20550000 


20560000 _ 


20870000 
90580000. 


20590000 


20600000 
20610000 


__ 20620000 __ 

20630000. 
20640000 _- 

20650000 


20660000 
20670000 


_ 20680000 

20690000 - 
20700000 
20710000 


BEGIN IF Svr AND PARENCOUNT = 0 AND NOT FIXEDLENGTH THEN 
BEGIN % FIXED*LENGTH VARIABLE SLASH ; , 
tp PTYPEEMKS] #4 43 THEN 
BEGIN SYNTAXERR(145P)3 
GO TO RETURNS 
END3 
IF NOT COMBINESTRVARNAMECMKS) THEN GO TO RETURNS 
PrYPECSPeMKS#1)] © 83 % FIXED@LENGTH wen 
PPOINTESP) « PTR3 
PSIZEtSP} ¢ 03 
Pe P+ 43 
FIXEDLENGTHM # TRUES 
PRACKESP) ¢ PBACKEIMKS)3 
MKS ¢ SP} 
GO TO NExTs 


“eMENDD oe 
IF PARENCOUNT = 0 THEN 
If CHARCINSTCCP@1)eWieCPei).C) = " " THEN 
IF LeCHARCINSTECPWIePeC#1) 3 "S" OR Tom "FH OR FT = NCH 
THEN GO TO GOTOs 
60 To OPS 
ENDS & CASE FOR "/* 


20720000 % 13: QMARK 


20730000 


29740000. 
20780000. 
20760000 
20770000. 


20780000 
29790000 


_.20800000 _. 


20810000 


20820000 
20830000 | 


20640000 
20850000 


20860000 
20870000 
90880000 
208900000 


20900000 
20910000 


20920000 
20930000 
20940000. 

_ 20980000 - 


20960000 
20970000 


20980000 _ 


20990000 
21000000 
21010000 


ee a0066 


21030000 


TF P 2 INSTSIZE THEN GO TO QMRK3 


% 143 ye 


G0 TO SEMICOLONS 
END cASES3 


ILLEGAL?» 


SYNTAXERRC35P)3 
GO To RETURN} 


Litt 


IF GY THEN YF PARENCOUNT § 1 THEN 
BEGIN SYNTAXERR(28eP)3 GO TO RETURNS ENDS 
BEGIN. 
PSIZELSP] « 33 PTYPELSP] « 33 % LITERAL 
To « P3 
P # P # SCANCHARC"™# 9, "9H, NSTC PWIeP,Co1) + 43 


IF P 2 INSTSIZE THEN 


BEGIN SYNTAXERR(OsT)3 

GO TO RETURN: 

END3 

T @ ENTERSTEP@TTLS INST CH lo THioMLIT™) & MANC3034236)3 


STORECHARS(35T25)3 


Poe Pk Ve 


‘GO TO NEXT3 
CENDP soe, 
NAMES 


If GT THEN TF PARENCOUNT = 0 OR PTYPECLSP"1)] -= 20 THEN GO TO GTPART3 
PSIZECSP] « 33 
T « PR} 
pO P « P + ¢ UNTIL CHARTYPECCHARCINSTEP.s WIeP, Cj) 4.33 
T «© YF CHARCINSTEP, WJeP,.C) = "CE" 
THEN ENTERSTCP®TsINSTLeleTOMFCTY) & *#9(3034236) 
ELSE ENTERSTCP®TsINSTLe]sTa"SYMB) & MMP 3084086 )5 


@® aeaeeeeeees#eeeee#seese #®* ® @® @# #@® # & 4 


eeeeeee8e#ee @ 


@®eee?ee8#ee8¢e? @ 


@® ¢ 


210480000 | 


21080000 
21060000 


21070000 
21080000 


21090000 


-21100000 _ 


21110000 
21120000 


21130000 


21140000 


24150000 
21160000 


21170000 
21180000 


21190000 
21200000 
21210000 

24220000 

21230000 


21240000 


21250000 | 


21260000 
21270000 


21280000 
21290000 


21300000 


21310000 


21320000 


- 21330000 — 
21340000 


21380000 
21360000 
21370000 


24380000 
21390000 


21400000 


pe ieee 
21420000 
24430000 _ 
21440000 
—-p1450000 
21460000 _ 
21470000 


21480000 


21490000 | 
21500000 
21510000 

21520000, 


21530000 
21540000 


_ 21550000 | 

21560000 
21570000 
21580000 


21590000 
21600000 


GTPART! 


STORECHARS(3T25)3 
IF CHARCINSTEP.WIJ2P.C) = "C*% THEN 
BEGIN 
COMPILINGFCTEPARENCOUNTe¢PARENCOUNT#1)] © TRUES 
PTR « PTR + 13 & MAKE ROOM FOR CHAR GIVING # OF PARAMS 
Poe Poe 13 
PRACKE(SP] «© MKS} 
MKS « SP} 
PrYPETSP] ¢ 23 % FUNCTION CALL 
PSIZELSP] « 33 & ten 
Go. TO. NExTs 
END ELSE 
BEGIN PTYPECSP] * 13 % STRING ‘NAME 
PNAMESP] « TRUES 
END3 
GG TO NEXT; 
If PARENCOUNT om 0 THEN 
BEGIN 
IF (TEMP + CHARCINSTEP, WieP.0)) & “"S* OR TEMP = "FY THEN 
IF CHARCTNSTEPaWleP,Ce1) = "C" THEN 
_ BEGIN 
ye Cle TEMP=ns* THEN GTS ELSE GTF) THEN 
BEGIN SYNTAXERR(4.P)3 
@o 10 RETURN} 
— ENDS 
Pe P + 23 
-PARENCOUNT © 13 COMPILINGFCTC1}) « FALSE? 
IF Temp = "S* THEN GTS © TRUE ELSE GTF © TRUE 
PTYPECSP}] © 203 2 "S¢t%s "FCs OR "OC" OF GOM TO ‘PART 
PBACKrSP) ¢ MKS} MKS « SP3 
PSTESP] « TEMP3 
GO TO NEXxT3 
END ELSE 
BEGIN SYNTAXERR(CS5eP 4193 
COMMENT CHAR AFTER S OR F NOT. "C"3 
GO TO RETURNS 
END ELSE © 
Ip TEMP = *¢" THEN 
BEGIN — 
IF GTS AND GTF THEN 
BEGIN SYNTAXERR(45P )3 
6O TO RETURN} 
ENDS 
Pe P+ i 
PARENCOUNT © 13 COMPILINGFCTC1) «© FALSES 
GTS ¢ GTF «© TRUE} 
PTYPECSP] © 203 % "S(">» Meee, OR WON OP go*T0 PART 
PBACKTSP].«¢ MKSS MKS « SP3 
PSTCSP] «© "C"} 
GO i NEXT3 
. £NO ELSE 
seein. SYNTAXERR(7eP)3 
ae aay RETURNS. 
END ese 
IF PARENCOUNT = 1 THEN 


@®eeeeeoeeeee#es* @® @ @ @¢ ® ® # @ 


Peete a Saisipcas Ferra, dog. re HPs 
: } t pigekenos 3 er eee F 7 E 2 : : ae 
' 2 i RIES SE i ‘ : i : ee t 
a : i ya. ot Hees ‘i : : i eee! i . Ee : X : 


i 


| 
| 


21610000 


21620000 
21630000 


_ 21640000 


21650000 
216460000 


21670000 


21680000 
21690000 


. 21700000 | 


21710000 
21720000 


21730000 


21740000 
217580000 


21760000 


21770000 


21780000 
21790000. 


21800000 
21810000 


21820000 


21830000 
21840000 


21850000 
21860000 


21870000 


21880000 
24890000. 

21900000 

24910000 


21920000 


21930000 
_. 21940000 | 
21950000 
21960000. : 
21970000. 


21980000 
21990000 


22010000. 
22020000 | 
22030000. 


22040000 
22050000 


22060000) 
22970000 
22080000 STRt 


32100000 


22110000 


22120000 


22000000 


Lit 


22430000 | 


22140000 


_ 22150000 


22160000 
22170000 


BrGIN 


Te PJ Pe P + 13 
P © P + MINCSCANCHARC® "stCMsINSTCP WIP, 
SCANCHARC® "os" "2 INSTCPWIeP,C) 


IF CHARCINSTCPeW]eP,.C) = "C" THEN 


IF 


BE 


GO 


EN 
CH 
BE 


WHILE CHARCINSTCP,WIsP,C) = *™ * DO P & P+ 13 


IF 


IF 


EN 
IF 


IF 


IF 


© ENTERSTCTEMP#TrINSTC#]s To MINST™) 


GIN SYNTAXERR(B2P)3 

TO RETURNS 

93 

ARCINSTEPeWIsP.C) = " " THEN 
GIN TEMP ¢« P3 


P > INSTSIZE THEN 
BEGIN SYNTAXERR( 182003 
GO TO RETURN3 
END3 
CHARCINSTCPeWN]sP eC) # %9" THEN 
BEGIN. SYNTAXERR(89P)3 
GO TO RETURN: 
_END3 
p ELSE TEMP « iP} 
EQ¢e3sWORDSCG] 22, INSTETWIeT,.C) THEN 
IF +3 3 TEMP THEN 
BEGIN STORECHARS (2s ""E%s6)3 
PSIZELSP] © 23 
GO TO L413 
END ELSE 
ELSE . 
EQ¢6+WORDSLG 146s INSTET HJ 97, .C} THEN 
oF. ‘T4#6>% TEMP THEN 
BEGIN STORECHARS (20 "=R"56)3 
PSIZELSP) © 23 
60 T0113 
END ELSE 
ELSE ; 
EQce7sWORDS(E] +52 INSTCTWIeT,C) THEN 
If #7 = TEMP THEN 
_- BEGIN STORECHARS(22"#F%36)3 
PSIZECSP] ¢ 23 
G0 TO La 
END 


STORECHARS(36T#5)3 


—PSTZECSP} + 33 


PTYPErSP) © 143 % IDENTIFIER@=LABEL 
60 TO NEXT# 
_END3 


co) TO. ERROR} 
7 % fe ENCOUNTERED=*TEST FOR STRING VARIABLE OR MULTIPLY. 
AN ‘ssrentsn 1S A STRING VARIABLE ASTERISK IFF IT IS IN THE 
% PATTERN PART AND OUTSIDE OF PARENTHESES. 
BEGIN 
DEFINE DUMMYS#3 © — 
IF SP < 1 THEN 

BEGIN SYNTAXERR(29P)3 


GO TO RETURNS 
END3 


TF PARENCOUNT > 0 THEN GO TO OP3 


P,C) 


& 86302428633 


% UNRECOGNIZED CONSTRUCT IN STR REF 


22740000 


_petaco00 IF ARF ANO NOT GT TREN Go TO OPS 
22190000 IF SVF THEN GO TO ENDSTRVAR3 
22200000 IF GT THEN 
22210000 = BEGIN SYNTAXERR(3%P)5 
22220000 GO TO RETURNS 
22230000 ENDS. 
222480000 IF CHARCINSTEPWIsP.C+1) = "C" THEN 
22250000 BEGIN PTYPECSP] «© 173 &% "*¢" OF BAL STR VAR 
222460000 PARENCOUNT « 43 
22270000 | Pie P + 93 
22280000 END ELSE 
22290000 BEGIN PYYPECSP] © 133 &% "*" QF ARB OR F/L STR VAR 
- 22300000 Pe Pe 
22310000 END3 
22320000 PSYZFISP1 © OF 
(22330000 PTR «+ PTR + 23 % FOR *N 
22340000 PBACK(SP] « MKS3 
22350000 MKS « SP3- 
22360000  =SVF « TRUE. 
22370000 GO TO NEXT3 
22380000 ENDS 
22390000 ENDSTRVAR? 
22400000 BEGIN 
22410000 | IF TePTYPECMKS) * 13 THEN % SIMPLE STR VAR 
22420000 BEGIN. 
22430000 IF NOT COMBINESTRVARNAMECMKS) THEN GO TO RETURNS 
22440000 AA e& "w13 
22450000  ——_sCaEND ELSE 
22460000 IF vs ne THEN % BALANCED STR VaR 
22470000 Bec! 
22480000 — IF NOT COMBINESTRVARNAME(MKS) THEN GO TO RETURNS 
22490000 AA © Naeny 
22500000 END ELSE 
22810000, =soIF 1 = 8 THEN % FIXED"LENGTH VAR 
22520000. BEGIN PTYPECMKS}) ¢ 03 
22530000 IF NOT COMBINEGROUPCMKS»FALSE) THEN GO TO RETURNS 
22540000 AA ew HOD 
22550000 END ELSE 
225460000 ¥ ERROR#=MKS DOESNT POINT TO VALID ELEMENT 
22870000 «6M TO ERROR: 
22560000 PTR «© PPOINTCMKS) + PSIZECMKS]3 
22590000 = STORECHARS(2rAA26)3 : 
22600000 s PSIZELSPeMKS} « PSITZELMKS} + 23 
226140000 PTYPELSP}) © 53 % STR VAR*=COMBINED 
22620000 Pe@® P+ 13 & SKIP ter 
22630000 = SVF_# FIXEDLENGTH ¢ FALSE} 
- 22660000 GO TO NEXT3. 
22680000 —s ENDS : | 
82660000 opt 
22670000 1 « “GHARTINSTER, WIeP, C3 
22680000 If f = "«" THEN 
22690000 IF CHARCINSTEP»W1sP,C¥1) = "ar 
22700000 - THEN P © P+ 2% TWO START#"EXPONENTIATION 
92710000 ELSE 1 © "x" % ONE STAR@*MULTIPLICATION 
22720000 | ~ pstTtsP) & 13. & FOR COMBINEARITHMETIC 
22730000 1eC6 © MAH 
PTYPEESP) © 73 


iMeore Hutloass Soom, fig. oe Aas es 
i : nee eat ' ; : oe ' : ms i oY iipkeepdionet ¢ : i “y 
: : eee nat ' : : : 4 | : coe : ps : : : 
H a i ceeen i ot : ; ‘ i i : ‘ Bey i H ; 


22750000 


22760000 


22770000 


22780000 
22790000 


22800000 
22610000 
22820000 
22830000 


22840000 


22890000 
22860000 


22870000 


22880000 
22890000 
22900000 | 


22910000 
22920000 
_ 22930000 
22940000 


22950000 


229460000 

22970000. 
22980000. 
72990000 


23000000 
23010000 


23020000. 
23030000 
- 23040000 
23050000 
23060000 


23070000 


23080000 
(23090000 


23100000 
23110000 


23120000 


23130000 


23140000 
23150000 
— 23160000 
23170000. 


23180000 
23190000 


_..23200000 
23210000 
23220000 | 
93230000” 


23240000 
23250000 


_ 23260000. 


23270000 
23280000 


23290000 


23300000 
23310000 


-PBACKESP) « MKS3 


PSYZFCSP] ¢ 23 
STORECHARS(22126)3 
PTR « PTR + 23 % MAKE ROOM FOR STRING CONVERT ¢2 CHARS)» 
Po@® Poe UR 
GO To NEXT3 
PARENERR! 
SYNTAXERRCL29P)3 
G0. TO RETURN; 
ERRORS | 
WRITEINSTS 
SYNTAXERRC402093 
WRITESTACKCSP)3 
GO To RETURN 
OLR: 
oh o@ AF 
O00 AEGIN Pe P #43. 
TF J © CHARCINSTEPReWI]sP.C) & "S$" THEN Ie T-# 43 
ENO UNTIL J 4 "8S" AND J # "83 
AA © "SHI" g TL3634286)3 
STORECHARS(3sAA25)3 % "8%, NO, OF INDIRECTIONSs "I" 
PTYPELCSP] © 63 & INDIRECTION F 
-PSIZEESP3 © 23 
60 To NEXTS 
MESFILS. 
SYNTAXERR( 382093. 
COMMENT MISSING STR VAR ASTERISKS 
60. TO. RETURN? 
SEMICOLON! 
BEGIN | 
% IF INFORM. THEN INFORMO(29)3 
IF SP > 1 THEN GO TO OMRK3 | 
IF ARF THEN IF NOT GT THEN IF SP#i THEN IF PTYPELO149 
THEN STORECHARS(1s"%e%,7)3 % STMT OF FORM <STRREF> ¢ 
IF NOT GTS THEN SLOC ¢ PTR3 
IF NOT -GTF THEN FlLoc « PTR; 
TEMP «© FLOC & SLOCl2633611213 
MOVE C4s TEMP s Ge CODEL MARKER, W]sMARKER.C43)3 
INSTNUM « INSTNUM # 13 
MARKER « PTR} 
AA © 0 8 INSTNUME 121368123 & QMARK(63422633. 
-STORECHARS(7#AAt1)3  — 
PTR # PTR + 13 
60 To STARTS 
ENDS 
QMRKE 
IF PARENCOUNT #.0 THEN. 
BEGIN SYNTAXERR(1890)3 net 
COMMENT PARENCOUNT NON@ZERO AT END OF. INSTRUCTION} 
Go TO RETURN; 
ENO: 
IF SyF. THEN GO TO MESFIL3 
PTYPELESP)] « PSIZELSP) «+ O38 
IF NOT GT THEN | 
BEGIN ; 
Tp NOT ARF THEN TF PTYPECOJ 418 THEN IF SP>1 
THEN GO TO CONDENSEPATTERNS 


® @©eeeeeeeeeeeeeee?eeeee4 


orivs, Gee 3 


® © © @ @ @ @ A 


eeeoeseeeeneneee 


= 23320000 


23330000 
23340000 


23350000 | 
23360000 | 


23370000 


23380000. 


23390000 
23400000 
23410000 


23420000 


23430000 
23440000 


23480000 


23460000 


23470000. 


23480000 


23490000 | 
_ 23500000 


23510000 
23520000 


23530000 | 


23540000 
23550000 


23560000. 


23570000 
23580000 


23590000 


23600000 
23610000 


23620000 


23630000 
23640000 


23650000 


23660000 
23670000 
23680000 


~ 23690000 © 


23700000 


23710000 | 
23720000 


23730000 


23740000. 
23750000 


23760000 
23770000 


23780000 


23790000 


23800000. 
23810000 


23820000 


23830000 % 
23840000 
23880000 

23860000 


23870000 
23880000 


IF ARF THEN IF NOT GT THEN IF PTYPECO] #9 
THEN GO TO CONDENSEREPLACEMENTS 
END3 
It ¢ 03 
PTR « PPOINTLON3 
$Sitoc « FLOC « 03 
FOR 1 « 0 STEP 1 UNTIL SP nO IF PTYPECTII ¥ O THEN 
BEGIN 
MOVECPSIZECTIsCODEEPPOINTE LJ eWJePPOINTE ITI .CaSCRATCHE IigWislieC)3 
If PTYPELI] = 21 THEN % GO*TO PART*=CHECK Locs 
IF I2¢PSTECI] = "S" THEN SLOC « PTR+I14 ELSE 
Ie 12 = "F" THEN FLOC © PTREI1 ELSE 
YP 12 a°"%C(" THEN 
BEGIN 
IF SLOC = 0 THEN SLOC «© PTR + 1143 
IF FLOC = 0 THEN FL 06 e¢ PTR + [13 
ENn ELSE GO TO ERROR; 
11 * TL 4 PSIZECII3 
PTYPELI} « 03 
ENDS 
STORECHARS(TisSCRATCH([012093 
PSTZEL01 © 113 
IF Po INSTSIZE THEN 
BEGIN SP « 13 
GO TO SEMICOLONS 
END3 
IF NOT GTS THEN SLOC © PRS 
IF NOT GTF THEN FLOC © PTR3 
RETURNE. 
MVC29SL0C 26s CODECMARKER.WI sMARKER » C4393 
MVC2,FLNC 2 6,CODELMARKER, WIeMARKER,C4#5)3 
MVC Le FIRSTCHARs 7s CODELMARKER,WJ] es MARKER,C#7 3 
IF INFORM THEN WRITEINSTS 


END COMPILES 


Rieke COMP TLE tw eee eR RR ERE EEE RE ERE RR 
Retake eee CONTROLPARAME TER © ot hte © oe ee ee i ie ee ae iO i ie ii Bk kei a ee 
INTEGER PROCEDURE CONTROLPARAMETERCAsP)3 
ALPHA ARRAY ACel]i 
INTEGER P3 
BEGIN DEFINE DUMMY. sity 
Id ¢ Pd. 
WHILE CHARCALHI6I1) > 9 AND T1-« 64 DO Ti « Ii + 13 
Pie 143 
WHILE CHARCAC#15P) $ 9 AND P < 64 DO Pe P # 13 
IF 11 2 P THEN T1 © “4 ELSE 
__ READCAL#1>FNUM@ IL sPeT tet) 5 
CONTROLPARAMETER « 113 
END CONTROLPARAMETERS 
Bee e eevee CONTROL PARAME TER Wo a te fe ae 1 Hf ie oe IO ta ea I fet II Id tie 
Kote te te ee ee CON VET AR Tt te 8 oe te ae te tee ae Wee te ee ete ee i et EO II RIE Re 


% THIS ROUTINE DOES A CHARACTER#SET CONVERT» AND CIF CONVERTSTRINGS 
% IS TRUE) A CONVERSION OF I/O STRING NAMESe IT IS CURRENTLY SET 

% TO CONVERT FROM COC 3600 SNOBOL CAS IMPLEMENTED AT THE UNIV, OF 

% WISCONSIN) TO 85500 SNOBOL, USERS AT OTHER INSTALLATIONS WILL 

% PROBABLY WANT TO WRITE THEIR OWN ROUTINEs TO CONVERT FROM A 

% LOCAL VERSION OF SNOBOL To 85500 SNOBOL, 

PROCEDURE CONVERTCA)3 


® e@©e8e08@0@6hUhFhFehC<ChPhC OOhC FOrhUC MhUC MC FhlUhFhlUlhFhlUhO 


i 


Bloor Busines Faces, lac. sv wires 
* rs * x cae + i i : s ” ibe + ae s Fi ooh eee 2 ¥ . * my : Pi - 
, i i oes eet POPPE Ee | : : : : i i PUSS : : : i : ; : 
: H a Bans g i i é 7 ‘ eu gte F RG ae as : : : t : i 
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23890000 


23900000 
23910000 
23920000 
23930000 
239480000 


23950000 


23960000 
23970000 


23980000 
23990000 


24000000 
24010000 
24020000 
24030000 


_.. 24040000 _ 
- 24050000 


24060000 


24070000 


24080000 
24090000 


24100000 


24110000 
24120000 


24140000 
24130000 
24160000 


24470000. 


ALPHA ARRAY ACO23 
BEGIN INTEGER 73 
ALPHA ARRAY €f0:7913 
DEFINE 0 = CLIY#s D1 = CLIti3#s 02 = CLI+2)#- 
03 = CLI4al#s D4 = CLI+4l#s DS = CLI¥51#3 . 
READCAC eI sFR0AieF OR I ¢ O STEP £ UNTIL 79 DO CLI193 
IF CONVERTSTRINGS THEN 
FOR I © 1 STEP 1 UNTIL FIELDSIZE™6 DO 
If O = "S* AND DL @ "Y" AND D2 = *S" THEN 
IF D3 = "|" AND 04 = "QO" AND DS = "K*® THEN x SYSLOK : LOOK 
BEGIN D * "L™3 OL @ "0%3 D2 © "OMS O13 © "KF D4 © OS e 7 MF 
END ELSE YF 93 = "P* AND 05 = "T" THEN 
IF Og = wl" THEN % SYSPIT + READ 
BEGIN D © "RYS Di © "ENS D2 © "AMS O3 & "DMZ D4 & DF « * HY 
END FLSE IF D4 a "PY THEN % SYSPPT : PUNCH 
BEGIN 0 * “PS DL «© "UNS N22 © MNS D3 © "CZ D4 & "HS DS « HH; 
ENDS 
FOR 1 «© O STEP 1 UNTIL 79 00 
CLI} * CONVERTVALECEII3 
WRITECACeI*9FROALsFOR LeO STEP 1 UNTIL 79 DO C1193 
END CONVERT? 


Rte tea CONVERT oti i tet Oi ek i IOI IIE IOI III III IOI TOI ICI Gi to 


Rata keer e CREATE LIBRARY oo tet tet tek He We He i TI IOI RI TO TO IIR Tk ek 


PROCEDURE CREATELIBRARY(MFIDsFIDIS 
-24130000— 


VALUE MFIDs FIn3 | 

ALPHA MFIDs FIn3 

BEGIN INTEGER Tse J3 

ALPHA ARRAY xCOI5)3 

SAVE FILE LIBE DISK SERIAL ab eseos C15262602SAVE 1593 


24180000 % 


24190000 


24200000 
24210000 


24220000 | 


24230000 


24240000 
24250000 


24260000 
24270000 


24280000. 

24290000 — 
-. 24300000 | 
24340000 - 


24320000 
24330000 


__ _..24340000 

28380000 _ 

28360000. —- 
283700000 
24380000 


24390000 


24400000 


24410000 
24420000 


24440000 


24440000 
24450000 


FILL LIBE WITH MPIDe FID: 


WRITECLIBEsFLIBOSENTIERCVERSION))3 
WRITECLIBESFLIALs SCATTERNOsMAXINSTSIZEs 
CPULIMITEXISTSs#CPULIMITs 
IOLIMITEXISTSs IOLIMITs 
RULELIMITEXISTSsRULELIMIT)4 


WRITECLIBEsFLIG2s ENTRY» FOR 1©O STEP 41 UNTIL 15 DO USEDSTCIJsINSTNUM)3 


WRITECLIBEeFLIB3esFOR T*O STEP 1 UNTIL 15 DO NEXTCELLE1II)3 
FOR I «© © STEP 4 UNTIL 15°00 
_IF_ USEDSTEI1 THEN 
FOR J ¢ 0 STEP 2 UNTIL 254 DO 
WRITECLIBEsFLIBGsNAMTABLEI s JJ» VALTABLE Ta J]s LOTABLULe JI» 
NAMTABLE Ts J+l] sVALTABLETeJ+1), TOTABLE Ys J#133 
WRITECLIBEsFLI85*FOR 1¢O0 STEP 4 UNTIL 34 DO USEDROWEII)3 
WRITECLIBEeFLIBGsFOR T*O STEP 41 UNTIL 31 DO OPNTREII)3 


FOR I ¢ 0 STEP 1 WHILE USEDROWCI) DO 
“FOR J « 0 STEP 6 UNTIL DPNTREIJ.W 00 
BEGIN MOVEWDS(6sDATACI+JI,XC#3)3 
WRITECLIRE*62XCe])3 — 
ENDS 
LOCKCLIBEs SAVE) 
END CREATELIBRARYS 


Rete eeeeCREATEL TBRARY 1 ki tO IO IIIS IGE GIES I TOU et 
Beg See SUNT UENG Fe SAA OS SA NERO USSRCR TS OR ES MTANE SeEe CR Tee RR URC Enea ee 
ALPHA PROCENURE DATES 

BEGIN % PRODUCES DATE IN FORMt 

% MM/DO/YY 
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t 


} 
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24460000 


24470000 
24480000 
24490000 


24390000 


24510000 


24520000 | 


24530000 
24540000 


24550000 


24360000 


94570000 
24580000. 


24590000 
24600000 


24610000 | 
24620000 | 


24630000 


- 24640000 - 


24650000 
24660000 


24670000 
24680000 
94690000 
24700000 
24710000 


24720000 
24730000 


24740000. 


24750000 


-94760000— 
24770000 


24780000 
24790000 


24800000 — 
24810000. 
24820000 

24830000 


24840000 


24850000 


24860000 


—- gag7oc00 
4880000 


24890000 
24900000 
24910000 


24920000 
24930000 
24940000 . 
24950000 


24960000 


ee 
~ 24980000 | 
24990000 

25000000 


25010000 
25020000 


ALPHA X3 : 

INTEGER De Me YF 

STREAM PROCEDURE ALPHADATE(CDeMsYeW)3 
VALUE Ds Ms Y3 


BEGIN DI -« w3 
SI # LOC M3} OS « 2 DECs 08 « 1 LIT /%3 
SY * Loe Ds DS © 2 DECS OS « 4 LIT "7%; 
SI * Loc Y3 DS #* 2 DEC3 
END ALPHADATE; 
% 
oe TIMECO)S 
Ye 10 « X,f18t6) + X,f248633 
Xe 400 x ‘¥.£3086). + 10 xX, £3626) + X.0421613 
Me O03 
WHILE x > 0 00 
BEGIN M #-M # 43 
OX # ys MONTHSEM]3 


ENDS 
Oe X + Moweuseway 
ALPHADATE(DsMsYsX)3 
DATE « x3 
END DATES 


Oo ea DATE IIIS IGOR ISI II IIIS IIS IIIS IUCN I II II TOR itt 
Bee eee RD EBUG et ee eee ak i I I Tota ION TO i ii tk i ik tok tk 


% THIS $8 THE CENTRAL CONTROL ROUTINE FOR THE INTERACTIVE 
% DEBUGGING TOOL. 
PROCEQURE DEBUGCRETURNLABEL )3 
VALUE RETURNLABEL JS 
LABEL RETURNLABEL? 
BEGIN INTEGER Ys Je Ke Le SAVEUSER3 
BOOLEAN. NEWIENSTS. 
‘DEFINE NUMCOMMANDSS 7 #3 
ALPHA ARRAY COMMANDLO:NUMCOMMANDS]3 
SWITCH FORMAT FOBUG * 
CNSASTATEMENT “oT eeteo)» 
—ONSeM ates” STATEMENTS EXECUTEDO") >» 
("SFL AST LABEL? weXeE eM) 
C8SFAT LABEL? "eX¥ote™)e 
CUSETYPE REQUESTS 09 eS%e")e 
CNSELEVEL & “eT wa S#O")» 
COSI a Xa NOT DEFINEDSZe")>» 
CNSEM aXe" NOT IN USESZE")» 
EM SAUNRECOGNIZED COMMANDS #6" )> 
CMON OKS he), 
CMSe eX wy” EXECUTED “eTes"” TIMESS#e" ye 
CMSA Kae BM PNEM DS 
C"<#700 MANY LABELS,$#e"), 
CU SESUSPENDEDS #6"), 
(USF END FORMAT@*FOBUGS42e%, (0993 
‘SwitcH FORMAT FSUSPENDREASON ¢ 
C™SASUSPEND CALLEDS#¢")» 
CN CFRULE LIMIT HITS#¢")- 
ON SFL ABEL LIMIT HITS#e%) 5. 
ChSFRATAL ERRORSZO%) 5 | 
C"SHEND FMT@*FSUSRSNS Ze") 3 
LABEL 
GETCOMMAND» 


%00 
%O4 
%02 
%03 
%04 
£05 
%06 
207 
£08 
%09 
%10 
%14 
%12 
%13 


%00 
201 
%02 
203 


<a d (op PE Ee fees ae ‘ : : areas 3 ; ae K = | i i i 
see i wens 4 Herat waved 3 Pea een id : : . ene i 2 i 


25030000 . 


-GETLs 
25040000 FAIL» 
25090000 ILLEGAL» 
25060000 RESUME» 
295070000 RUNLOOPS 
25080000 % 


23090000 SAVEUSER © USERS 
25100000 USER «+ MAYNUSERS 
251410000 NEWINST © FALSE; 
25120000 DEBUGGING « TRUES 
95130000 FILL COMMANDE#] WITH 
25140000 MENDY» 
95190000 = * TYPE» 
25160000 NSETH, 
25170000 "RUN » 
25180000 "LABEL™» 
95190000 "ABORT", 
25200000 "WHERE", 
25210000 TWHY ts 
25220000 03 
25230000 WRITECDCWRITELwJsFOBUGE133)3 
25240000 IF OUTPUT THENS 
25250000 GETCOMMAND! 
25260000 IF NOT INPUT THEN GO TO FAIL3 
95270000 GFETL: .. 
25280000 MVC Ls ARROW 7oDCREADEDCSIZE WISDCSIZE,C)3 
25290000 % IF INFORM THEN WRITECPRINTs LOs0CREADE#))5 
25300000 - gue CHARCDCREADE*]20) = "=" THEN & CONTROL CARD! 


25310000 BEGIN INSTSIZE «© DCSIZE3 
25320000 MVC 3eSTOPPERs S#DCREADECDCSIZE, WIsDCSIZE.C)3 
25330000 —  PROCESSCONTROLCARDCDOCREADL #33. 
23340000 MVC3sCRLEsSsDCWRITEL #12093 
25350000 Ip QUTPUT THEN; 
= 25360000 Go TO GETCOMMANDS 
25370000 ENDS 


25380000 1 ¢ SKIPCHARC” "sDCREADL#1,093 
25390000 & ENIT ROUTINES GO HERE SOMETIME es. 
25400000 Jo# YT # SCANCHARC™ "s"e"s,OCREADC#] e193 
25410000 AA & 03 
254620000 IF Jel > S. THEN GO TC ILLEGALS 
25430000 - MVC J@TsOCREADE Je T pAAs Besar 3 : 
~-9§4a4a0000 For t * NUMCOMMANDS STEP #4 UNTIL © pO 
95480000 | IF AA = COMMANDCI) THEN CASE I OF 
(25460000 BEGIN % CODE FOR VARIOUS COMMANDS: 
25470000 Rite deh ty te a se ei ek ti a tk ae tek ta ta ik ke 
cee ity wins ns uv i353 480000 % Of END] 
oes ee BEGIN RESULT « TRUES 
25500000 | GO To. ENOTERPRETS 
29810000 ENDS | 
25520000 < ‘{t TYPE <NAMED© 
25530000 BEGIN 
25540000 IF CAA*SFARCHSTCI*COCSIZE* Jal sDCREAD Ew Je J+is"SYMB")) < O THEN 


25550000 BEGIN WRITECDCWRITEL 4) sFDBUGLE7]sIeMINC1963))3 
25560000 MYCTeDCREADC# J+ J+lsDCWRITEL#192)3 
25570000 IF OUTPUT THENS 
25580000 GO TO GETCOMMANDS 
25590000 PNOS 


eeeeveeeeeveeeeeeereeeeee & 4 


ee 8 06 


®ee @ e@ee3eee emhmlUlUOlCcMmlCOCUCcUOCUCc OUmUlcOmUcrhF lhl 


25600000 
25610000 


25620000 
25630000 | 


23640000 


25650000 
25660000. 


25670000 
25680000 


25690000 


25700000 
25740000 


(25720000 
25730000 


25740000 
_ 25750000 


25760000 
25770000. 
25780000 


25790000 
25800000 
25810000 


25820000 


25830000 
25840000 
25850000 
25860000 


25870000 


25880000 
23890000 
25900000 
25910000 
25920000 


25930000 
25940000 


25950000 


25960000 


25970000 
25980000 
25990000 


26000000 


26010000 


26020000. 
26030000 


26040000 
26050000 


26060000 
26070000 
26080000” 


26090000 
26100000 


26110000 _ 

26120000 
~ 26130000 
26140000 


26150000 
26160000 


AB « NAMECAAY3 
AC © VALUCAA}3 
WRITECDCWRITEC# I] sFOBUGDIL I] +TeMINCI 263) )3 


— MVCTsDCREADF ele Jel sDCWRITEL #12293 


loe 2 + 63 K © ACeCH3 
MVCJeMEINC7OmToL@AC, S)»sFIRSTCHARCAC )sDCWRITELTeW)51,C)3 


MVCLs ARROWS ZeDCWRITELCI+u0 WIA Clad) oC)3 


WHILE © + J 2 70 00 

BEGIN IF NOT OUTPUT THEN GO TO GETCOMMAND3 

K-@ K + J3 

Lee how us 

Mv CTe2eCRLF eSeDCWRITEC #12023 

MOVECUSMING7O*] sl ADATALAC eReKe WI 2K» CeOCWRITEL*]2293 
END3 

MV CLs QUOTEs 7oDCWRITELCIOL+ J). WJeTeC)3 


MVE3eCRLE eS eDCWRITECIT OW) eT. CHl3 


IF OUTPUT THENS 
60 TO GETCOMMANDS 
END TYPES 


% 2: SET <NAME>*  <VALUE>e 


BEGIN 

AA @ ENTERSTCOCSIZE@J"1sDCREADC HJ elie 9SYMB")3 
MVC3eCRLF 2 SeDCWRITEC#I20)3 IF OUTPUT THENS 

IF NOT INPUT THEN GO TO FAIL 


AB © STRINGCDCSIZE,AA)3 


IF DEATH THEN GO TO ENDOTERPRET3 
MOVECDCSIZE sDCREADE +] eOeFIRSTCHARCAB) 23 


VALULAAT,. LOG © ABS 


MVC3eCRLFsSsDCWRITELC #14093 IF QUTPUT THENS 


GO TO GETCOMMANDS 


ENO SET} 


x = RUN <LIMIT> FROM <LABEL> TO <LABEL> <LABEL> <LABEL> eet 


EGIN 
TH @ NLABELLIMITS &% SAVE IN CASE OF “TOe", 
NLABELLIMIT © #13 &% Sh MEANS NO TO*PART FOUND YET. 
DEBUGRULELIMITEXISTS «© NEWINST © FALSE; 


RUNLOOPS 


J @ J SKIPCHARC” "sDCREADEUeWJodeC 33 
IF 12 © CHARCDCREADE JeW)eU.C) 2 “te” THEN GO TO RESUMES 
IF 12 $ 9 THEN & SUNTEGER> 
BEGIN. 
IF DERBUGRULELIMITEXISTS THEN % ‘TWO OF THEM="*ERROR 
BEGIN WRITECOCWRITEC #14 FEHs QMARK)3 
IF OUTPUT THEN3 
GO TO GETCOMMAND3 
END} i , 
I -« 0} % FOR BUILOING LIMIT 
PO BEGIN I « 1x10 + Tas. 
Joe Joe 3 
ENO UNTIL 12+CHARCDCREADE Js WieJeO) > 93 
DEBUGRULELIMITEXISTS ¢« TRUE 
_ DEBUGRULELIMIT « RULESCO)] + I3 
60 TO RUNLOOPS 
ENDS 


yr ¢ (TeMNEMNOG 1» DCREADE #2449) = 1 THEN 


BEGIN % FROM <LABEL> 
TF NEWINST THEN % TWO OF THEM=-ERROR 


@® e@e@eeeeee## *#® # #® # *# #e *# # # *# sa &® & 
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! 


foe 
i 


! 


t 


eevee eveeeeeeeeeweeeeeee 


26170000 | 


26180000 
26190000 


26200000 


26210000 


(26220000 
26230000 


26240000 
26250000 


26260000. 
26270000 


26280000 


26290000 


26300000 
26310000 


26320000. 

26330000 
26340000 
26350000 


26360000 
26370000 


_.26380000 _ 
26390000 
26400000 

“26410000. 


26420000 
26430000 


26440000 
26450000 
26460000 

26470000, 


26480000 
26490000 


_. 26300000 

26510000 
26820000 
26530000 


26540000 
26550000 


. 26560000 | 
26570000 © 

26980000. 
26590000 


26600000 
26610000 


.. 26620000 


26630000 


26640000 | 
26680000 


26660000 
26670000 
26680000 
26690000 
26700000 


_ 26710000 


26720000 
26730000 


BEGIN WRITECDCWRITEC¥1sFEHsQMARK)3 
IF OUTPUT THEN} 
GO TO GETCOMMAND; 
ENDS 
J @ J + SKIPCHARC™ */DCREADC J eW)edeC)3 
Y © SCANCHARC™ "pe" sQOCREADE I WI2J.C)3 
Ip I < 0 THEN GO TO ILLEGALS 
AA ¢ SEARCHSTCIsDCREADE # Jods "INSTM)3. 
IF CABGVALULAAJ),.S <¢ 9 THEN % NO SUCH LABEL? 
BEGIN. WRITECDCWRITEL* I +FOBUGEG1»eKeMINC63e1) 23 
MVCKeDCREADL J WI eJeCeDCWRITEC #19293 
PF OUTPUT THENS 
GO TO GETCOMMAND3 
ENDS | 
NEWINST # TRUES 


_ PSTLO] © AA3 


deed oe OTS. 


60 TO RUNLOOPS 


1F 


ENDP 

1 = 2 THEN 

BEGIN % TO <LABEL> <LABEL> <LABEL> sone 
J @ J + SKIPCHARC™ ",OCREADC UWI evel 23 


TF CHARCOCREADCY.WI2J,C) = “e@" THEN 


BEGIN % TOe CSAME LIMITS aS LAST TIME) 
NLABELLIMIT # T4a3 
60 TO RESUME} 

END3 


O00 BEGIN % FIND LABELS? 


Y@ SCANCHARC™ “e*eMsOCREADC JaW)adel)3 
TF I> 0 THEN % LABEL FOUND 
BEGIN 
IF ¢NLABELLIMITe*NLABELLIMIT+1) > MAXLARBELLIMIT THEN 
BEGIN % TOO MANY LABELS! 
WRITE COCWRITEL*eI]sFDBUGL12)93 
IF OUTPUT THEN 
GO TO GETCOMMAND3 
_ ENDS. . 
IF LABELLIMITCNLABELLIMITIJ*#SEARCHSTCIeDCREADE eI] ede "INST") 
$0 THEN % NO SUCH LABEL! 
BEGIN WRITECDCWRITEL #1] sFOBUGLO]sKeMINC6351)23 
MVCKsDCREADC JeWlad eCoDCWRITEL I] 9293 
IF OUTPUT THEN? 
GO TO GETCOMMANDS 
END3 ; 
Jo@ J # To & SKIPCHARC™ "sDCREADC CUFT W]e CUT 30023 
ENDS. 
END UNTIL CHARCOCREADC JeWJed.C) = NENG 
GO TO RESUMES 


ENDS 
% FALL THROUGH! INVALID DELIMITER: 
G0 TO ILLEGAL3 
_.. ABEND RUNS 
Z 4t LABEL: <LABEL>e 
BEGIN 


IF CAACSEARCHSTCI#CDCSIZE=J=1) sDCREADE#JeJtis"INST")) § 0 


THEN WRITECOCWRITEL*) sFOBUGLO]sIeMINCI263)) 
ELSE WRITECDCWRITEC*I,FOBUGLIO] >» TeMINC1263)> 


@® @e@e60ee8e66e80ee80 e808 0 6 @ e® # *® @® ee e® a *s & 


£ Foruis, ine. au 


eeeeveeve0eeeeweeeeweeweeene30eet 6 
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26740000 
26730000 


26760000 
26770000 


26780000 


26790000 
26800000 


26840000 


26820000 


26830000. 


26840000 
26850000 


26860000 | 


26870000 
26880000 


26890000 _. 
26900000 © 
26910000. 


26920000 
26930000 


26940000 


26950000 


26960000 


—. 26970000. - 
26980000 


26990000 
27000000 
27010000 


27020000 — 
27030000 | 
27040000 
27050000 


27060000 
27070000 


27080000 


27090000 


27100000 
cos 


27120000 


7p $ 90000 

- 27180000 - 

27180000. 
— a7160000 | 

27170000 


27180000 
27190000 


27200000. 
27210000 
97220000 | 


27230000 
27240000 
27250000 


27260000. 
27270000 
27280000 


27290000 
27300000 


— DIGITSEKeVALUCAAT,LINK 2K D3 
MVCYPSOCREADF ala tT+1sNCWRITEC *I92)3 
IF OUTPUT THEN? 
GO TO GETCOMMANDs 
END. LABELS 
% St ABORT « 
BEGIN RESULT © FALSES 
60 TO ENDTERPRETS 
END ABORTS 
% 6: WHEREe GIVES PLACE OF SUSPENSION, 
BEGIN 
% TYPE STATEMENT NUMBER? 
WRITE COCWRITEC*] »FOBUGLOIJs0IGITSCINSTNO)s INSTNO)3 
IF NOT OUTPUT THEN GO TO GETCOMMAND3 
% TYPE NUMBER OF RULES EXECUTED. 
WRITECDCWRITEC#]sFOBUGE LJ sDIGITSCRULES£LO] )»RULES(O1)3 
IF NOT GUTPUT THEN: GO TO. GETCOMMAND3 
% LAST LABELS 
‘AA © NAMECENTRYT3 — 
J # MINCAA,S #6393 
IF INSTRUCT > 0 QR NEARPOINT > 9 THEN 
BEGIN WRITECDCWRITECL* J »FDBUGL2I9J)3 
Toe $43 
END ELSE : 
BEGIN. WRITECDCHRITEL*I¢FDBUGL3 Ie J)3 
I * 123 
END; 
MVCJeFIRSTCHARCAA) sDCWRITEL #32195 
IF NOY OUTPUT THEN GO ‘TO GETCOMMAND3 
_% TYPE LEVEL! 
WRITECOCWRITEL* I >FDRUGESIsDIGITSCLEVEL)» LEVEL D3 
IF OUTPUT THEN} 
GO To GETCOMMAND? 
ENDS 
4% 7: WHYe | GIVES REASONS FOR SUSPENSION. 
BEGIN 
FOR 1 + © STEP 1 UNTIL MAXSUSPENDREASON 00 
“Tp SUSPENDREASONECI] THEN 
BEGIN WRITECDOCWRITEC*#]e+FSUSPENDREASONEIJ)3 
LFS NOT QUTPUT THEN GQ TO GETCOMMAND3 
-END? 
G0 To GETCOMMANDS 
eOCENDB co 
We 0 i cee 
END COMMAND CASES} 
ILLEGAL ?$ 
WRITECDCWAITEC*I>+FDBUGLBI)3 
YF OUTPUT THENS 
G0 TO GETCOMMAND? 
FAILE 
IF INPUT THEN GO To GETL3 
DEBUGRULELIMITEXISTS © FALSES 
RESUME 
WRITECDCWRITEL #2 eFDBUGL9OI): 
IF QuTPUT. THENS 
SETLIMITFLAG3 
USER ¢ SAVEUSER3 


Moore Sutiness Forms, tat. + eae Ee 
a i i pigerciciiatie f ge Saray eae i 5 . pouae gee eat bene: i ta aS : - rier | z : : 
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97310000. 


27320000 
27330000 
27340000 
27330000 
27360000 


27370000 | 
27380000 


27390000 


_ 27490000 


27410000 
27420000 


27430000. 


27440000 
27450000 


27460000 | 
27470000. 

- 27480000 

27490000 
27500000 


27510000 


27520000. 
27530000 


27540000 


27530000 2. 


27560000 


27370000 
27580000 


27890000 3 
97600000 
27610000 | 


27620000 
27630000 


_.. 27640000 | 

27650000 
27660000. 
27670000 


27680000 
27690000 % 


_. 27700000. 
27710000 


27720000 


27730000 | 


27740000 
27750000 


27760000 
97770000 
27780000 
27790000 


27800000 
27810000 


27820000) 
27830000 © 


27840000 


27850000 


27860000 
27870000 


IF NEWINST THEN GO TO RETURNLABELS 
AA «© PSTrO)3 
¥ AA CONTAINS THE SYMBOL TABLE ADDRESS OF THE NEXT INSTe 


END DEBUG} 
ToS DEBUG RII UTI IIS IOI Een EIR Itt Riek 
AAEM EHR ECOTOLT SEA ERE AAA ARNE ENE Ra SHEATH ERT EE SEERA TREE ENES SERENE ENE DH RENE 


INTEGER PROCEDURE DIGITS(N)3 
VALUE NS 

REAL NZ 

BEGIN INTEGER 03 

0D «+ IF N > © THEN 0 ELSE 43 


Ne ENTIERCABS(N))5 


WHILE N > 0.00 
BEGIN D «+ 0 + 43 

Ne SENTIERCN | DIv 1033 
ENDL. & 

DIGITS « DS. 


END DIGITS3 


Bate tea GTS tO III III III I IOI III IG IOI OI I IOI ik 
% eke de ede ENTERS T te te te th ie te teh de ae de de te ie ie eee ee tt dd TR IIR TOR RK te RR Rak 


SZ ENTERSTCNsL»oPeX) SEARCHES THE SYMBOL TABLE FOR THE OBJECT OF 


% TYPE x (SEE BELOW)3 IF THE OBVECT IS NOT PRESENT» A NEW ENTRY 
% IS CREATED FOR IT. THE RETURN VALUE 1S THE SYMB TABLE ADDRESS 
% OF THE OBJECT. THE NAME CONSISTS OF THE N CHARS STARTING FROM 
Z LCPWisPeCeeN CAN BE ANY CNON@NEGATIVE) NUMBER, 
% H ABLE IS F ANDO A NEW ENTRY MUST BE CREATEDs 
% NESSAGES ARE PRINTED ¢LP AND TT)» AND *4 IS RETURNEDe ALSOs 
% THE PROCEDURE NEWCELL WILL HAVE SET THE DEATH FLAG TRUEs 
ALPHA PROCEDURE ENTERSTCN+L »PoX)3 

VALUE Ns Pe XB | 

INTEGER Ne BS 

ALPHA ARRAY LLOV 
ALPHA x3. 
BEGIN ALPHA J» K3- 
INTEGER Is Yo Me XTESTS 


‘LABEL FOUND, FAIL» RETURN» CREATES 


cere STWORD @ CIF BOOLEANCY) THEN VALUCI] ELSE NAMECT1])#3 


XTEST ¢ IF x = "SYMB" THEN 0 ELSE 

1FoxX°s SLIT". THEN 1 ELSE 

; yo = “ECT THEN 2 FLSE 
IF x = "INST" THEN 3 ELSE 03 

Yo dF X = *LIT® THEN 1 ELSE O3 

IT © SCATTERCNeL 2 Po X05 


WHILE TRUE 90 


% YF YOU BONT UNDERSTAND THIS» YOU ARENT NECESSARILY STUPIDt 
BEGIN If CIF .N ¥ CK ¢ STHORD)«S 
eee iy THEN FALSE 
ELSE EQUALCNeLEP, W1*PaCaFIRSTCHARCK))) 
THEN TF CIF N = 0 THEN CK,LOC # 0) ELSE TRUE) 
THEN IF CIF X = MLITS 
THEN NAMECI ~ 
ELSE K),TYPE = XTEST 
| THEN GO TO FOUNDS | 
IF X = "LIT" THEN K © NAMECT]3 
IF K.LINK = 0 THEN GO TO CREATES 


FOR 1. 0 STEP 1 UNTIL MAXSUSPENDREASON DO SUSPENDREASONET) ¢ FALSES 


ea 


@®eeeee#eeeeeeee*e*e@ee0ee8##eee*s 


- 


27880000 = J * Kel INKS 

27890000 ENO} 

27900000 CREATE! 

27910000 BEGIN DEFINE DUMMYs#3 

27920000 J STRINGOND O25 

27930000 MOVECNSL EP Wie PeCeFIRSTCHARC J) 3 
27940000 TF STWORD.LOC # 0 THEN 


27950000 BEGIN M « NEWCELLCI,STR)3 
27960000 IF DEATH THEN GO TO FAIL 

27970000  _NAMEECTIsLINK © To «© M3 
27980000 END} 


27990000 NAMECI] « IF BOOLEANCY) THEN 1 ELSE yi 
28000000 =—s- VALU) © IF BOOLEANCY) THEN J ELSE 43 

280610000 M@ JeCH = 23 
28020000 MVC2pTe6sDATALIeRaMaW]eMeC)3 
28030000 = =NAMELIT}.TYPE © XTESTI 

28040000 IF X 3 "FCT" THEN 


28050000 BEGIN | 
28060000 | KR @ INTRINSTCCLeP#N)3 . 
28070000 If K # 0 THEN VALUCT] © 1 & K CLINK3 
28080000 ENDS 
28090000 _—s IF. -TRACEALL THEN 
28100000 BEGIN VALUCT],IOUSE © CIF Xs"FCT" THEN 3 ELSE 193 
28110000. Intl) © 0 & 2 CIOTYPE & 3 CFILNO 
28120000 ——i(ssti“‘ié‘i SCE EME CT THEN 3 ELSE 1) CIOUSES 
28130000 ENDS 


28140000 GO To FOUNDS 
_ 28150000 ENDS. 
26160000 FAIL: — 
28170000 MESSAGEOC14)3 
28180000 MESSAGETTOC14)3 
28190000 I-¢ #13 
28200000 FOUND! ENTERST «+ 13 
26210000 RETURNt 
28220000 END ENTERSTS 
PAZIOOOO Beene se wee ENTERS Tote se se ae ie a A te eae eT eT IOIIOII IOI IO ok 
28240000 SeweraeaePINDUSERS POR EHR ER Ee EH Re Ra kee tee ik Ria ek ie Rik ick 
— 28250000 PROCEDURE FINDUSERS# 
28260000 BEGIN INTEGER Ts Js 
28270000 ALPHA ARRAY XCOt2xTTMAXI3 


28280000 ALPHA Sti» ST2s 


28290000 % 


98300000 ST1_  STATLUSER), £91995 


28310000 ST2 « STATEMAINUSER), 193913 

28320000 NUMUSERS «© STATUSCXE #3) / 23 
28330000 FOR. T-¢ NUMUSERS#4 STEP ae! NING 0 60 
283940000... BEGIN doe Tox 2h 
98350000 =—s STATEI} & XeUi3- 


28360000 DET) © XEseis 


28370000 END; : 

28380000 IF ST2 # STATCMAINUSER],£9%91 THEN 
28390000  _BEGIN MAINUSER ¢ 0% 

28400000 POR te NUMUSERS#1 STEP 1 UNTIL 0 DO 


28410000 _ ‘IP STATCT7<£9291 = $T2 THEN MAINUSER © I3 


~ faoore Busines? Farns, law. iy peed 
z : . i 
: H : : ‘ 


28420000 ENDS ; 
28430000 IF STi # STATCUSERI,(#929] THEN 
28440000 BEGIN USER « =43 


: : i H : : i : : P ae) i : i : 


1 
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28450000 | 


28460000 
28470000 


28480000 

28490000 
28500000 
28510000 


28520000 
28530000 


28540000 


28550000 


28560000. 
28570000 


28580000 
28590000 
28600000 % 
28640000 
28620000 


28630000 | 


28640000 
28650000 
28660000 


28670000 


28680000 


28690000 


28700000 
28710000 


_ 28720000. 


28730000 


28740000. 
. 28750000 


287460000 
28770000 


28780000 


28790000 
28800000 


28810000 


28820000 
28830000 


28840000 
28880000 | 
28860000 
28870000 | 


28880000 
28890000 


28900000 
(28910000. 


28920000 ae 
28930000, 


28940000 
28950000 


28960000) 


28970000 
28980000 
28990000 


“29000000 
29040000 


FOR t « 0 STEP 1 WHILE USER < 0 AND I < NUMUSERS DO 
IF ST1 = STATCI3,€0939] THEN USER © T3 

IF YSER < 0 THEN USER « MAINUSERS 

END} 

DATACOMF ¢ NUMUSERS > 03 

END FINDUSERSS 


KeaeHAEHAPINDUSERS O81 REI EERIE REIMER RHE 
Leee wee ae GARBAGE COLLECTOR aaa kw ate eee Ree ee ea ee eee ee 


PROCEDURE GARBAGECOLLECTOR 


a 


BEGIN INTEGER teKeMeMAXeP eo ROWS STs TOTALS 


REAL TIMECPs TIMETOs 


ALPHA J3 
INTEGER ARRAY NEWPNTREOIDATASIZEI3 
aia Ls 


TIMECP © TIMECS)% TIMEIO ¢ TIMEC3)3 
IF INFORM THEN 

BEGGING ee 
WRITECPRINTSFGC)3 
WRITETIMECO2093 

CHECKSYMBTABL3 


END3 
% FREE STRINGS ATTACHED TO CELLS ON AVAILABLE SPACE LISTS! 


FOR tT © O STEP 4 UNTIL STRMAX DO IF USEDSTCII THEN 


BEGIN K « NEXTCELLETI3 
WHILE K # 0 00 
BEGIN NAMECK],LOC © VALULKI ©« Q3 
K ¢ NAMETKI,LINKS 
ENDS 
ENDS : 
5 CHECK FOR CELLS HELD A LONG TIMEs THEN DISCARDED! 
If GCS6C = 0 THEN 
PILL NOTMOVEDE*)] WITH 02020909020202090209090209020002 
0002080202090 209020209020202020) 
MAX « TOTAL ¢ ROWS © 03 
IF NOT DEATH THEN 
FOR 1 ¢ O STEP 4 UNTIL DATASIZE DO 
IF USEDROW(C1] THEN 
BEGIN | 
ROWS « ROWS + 13 
MVC Le QMARKe Te DATALCIeDPNTROE TJ eW)eO0PNTROEII.C)3 
P # NEWPNTREI] «© NOTMOVEDCIIU3 
Lt’ P « P + SCANCHARCQMARKsQMARKsDATALI»PeW]eP.CI3 
If P < DPNTRCI] THEN | 
BEGIN MVC2sDATALIoPyW]sP,ColeSTs6)3 
FOR K ¢ 190 00 
BEGIN. ; . 
doe IF BOOLEANCK) THEN VALUCST] ELSE NAMELCSTI3 
IF JeCH = P+3 THEN 
IF JeR 3 I THEN IF JeCH#3 > NEWPNTRE I] THEN 
BEGIN M @& J,CH * 33 
MOVE CJ ¢S+3sDATALIOMaW JOM, Ce 
DATALI#NEWPNTREI Je WIeNEWPNTREDT60)3 
TF BOOLEAN(K) 
THEN VALUCST].CH ¢ NEWPNYTREI} + 3 
ELSE NAMECST),CH « NEWPNTREIJ + 33 


Busioass Porras, ion. ty 


Moore 


ee 


pent 


" < * « @ ¢ 

29020000 - NEWPNTREL e LNENPNTRETI | + J,S + 33 
29030000 # P+ JS. 3 

29040000 30 TO L3 

29050000 END ELSE 

29060000 : - BEGIN P-© P # J.S 4 33 

29070000. _ NOTMOVEDCI3 «© NEWPNTRETII © P3 
29080000 : ees BO TO us 

29090000 END3 

29100000 ENDS 

29110000 = Pe P+ iF GO TOL 

29120000 ENDs 

29430000 — IF 6184 = COPNTREI) © NEWPNTROEIJ) > MAX THEN 
29140000 = ~—s MAX & 6184 = DPNTRETI 

29150000 TOTAL * TOTAL + 8184 = DPNTREVI3— 

29160000 ENDS 


29170000 IF MAX < 1000 OR TOTAL < 2000 THEN 
29180000 BEGIN I-# 03 | ; 
99190000 WHILE USFOROWEI] AND I < DATASIZE DO T« I * 13 


29200000 —USEAROWET) « TRUE} 


29210000 ENDS 
29220000 CHECKSYMBTABL3 
29230000 IF INFORM THEN 


99240000 “BEGIN 


29250000 WRITETIME(O20)3 


29260000 | SRETELEMENTLPGERESSRONSSMAXD TOT ALYS 
29270000 ENDS 


29280000 GCS + GcS + 13 
29290000 GCTIMECP ¢ GETIMECP + (TIME C2)"TIMECP)/603 


29300000 GCTIMEIO « GCTIMEIO * CTIMEC3)=TIMEIO)/603 


29310000 END GARBAGECOLLECTORS 
29320000 Zeaeweea GARBAGE COLEECTORG# baw NSae OC cHsde oes Reeeene reeeebeceanhetens 


"B9O3FIOOOO Ke eaewew ae ENO TRE L Tt i Wee ee he eee a RRR ETHER ERE EERE ERE 


29340000 % INDIRECTCSP) INDIRECTS ON THE STRING NAMED BY STACKEI Js AND 
29350000 % LEAVES THE RESULT IN THE SAME STACK LOCATION, THIS ROUTINE IS 


29360000 © CALLED BY VARIOUS. INTRINSIC FUNCTIONS THAT NEED TO INTERPRET 


29370000 % THEIR PARAMETERS AS STRING NAMES. 
29380000 PROCEDURE INOIRECTCSP)3 


29390000 VALUE SP3 INTEGER SP3 


29400000 BEGIN ALPHA AAs ABS 
29410000 % IF INFORM THEN YNFORMOC19)3 
29420000 AA « PSTLSPI3 


29430000 AB + VALULAA3 
29440000 PSTESP1 « ENTERSTCABsSsDATAL ABR» #9 AB.CHs"SYMB") 3 


29450000 PNAMECSP) « TRUES 
29460000 END INDIRECT 


_ 29470000 | ESTEE TITLE PLIABLE ELA LILLIE ELLIS LILLE LILLE LLL LL, 


29480000 Saeed ede e INE ORM ee ee ae eR eee ee aH EEE REE RK Rokk 


29490000 % THE FOLLOWING PROCEDURES ARE CALLED ONLY TO QUTPUT CERTAIN 


29900000 % INFORMATIVE MESSASESs | THE PROCEDURE NAMES CONSIST OF "INFORM" 


29810000 % FOLLOWED BY A STRING OF "TS OR “A*@Se TELLING WHAT SORT OF 
29520000 % FORMAT THE PARAMETERS WILL BE WRITTEN OUT AS. THE FIRST PARAMETER 


29530000 &- _ GIVES THE. SUBSCRIPT Te A SWITCH FORMAT. 


29540000 % 
29550000 PROCEDURE. INFORMOCID3 : 


99560000 VALUE I3 INTEGER 13 


29570000 BEGIN SWITCH FORMAT NFRMO « 
29580000 (X80, "SCANSUCCESS" 9» £00 


H : : : : : : : a i ; : : Hl : : 
: : i : H : H s : ' : 5 5 : : >} 
: i oe nee eet Pace ' : : : ‘ : : : ae tsk : ‘ ao 


° 


BAgact Business i cine, ine. ot raid? 
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29590000 


29600000 
29610000 


.. 29620000 
29630000. 
29640000 

29680000 


29660000 
29670000 


29680000 


29690000 


29700000 - 
29710000 


29720000 
29730000 


29740000 | 
29750000 
29760000 
29770000 


29780000 
29790000 


29800000 
29810000. 


29820000 


29830000 — 


29840000 
29850000 


29860000 
29870000. 


29880000 


29890000 | 
29900000 


29910000 


29920000. 
29930000. 


29940000 


29950000. 


29960000 
29970000 


29980000 
~~ 29990000 — 
30000000 
30010000 - 


30020000 
30630000 


..30040000 | 


30080000 


~ 30060000 
30070000. 


30080000 
30090000 


30100000. 


30110000 
30120000 


30430000 


30140000 
30150000 


-CX80e"ASSIGNMENT OF STRING VARIABLES"). 
CX80e"DELETE PATTERN" )>» 
CX8O,"*RRETURN" De 

CXB80e"INSTRUCTION FAILED)» 

CX8O,"START OF DEFINE SEGMENT)» 

CX80,"END OF DEFINE SEGMENT")>» 

(X80, "RETURNTEMPS"), 

X80, "SCAN FAILED)» 

(/“#eILLEGAL ARGUMENT To ,S")e 

C//"e*DUMMY FORMAT@"NFRMQOC109%.110)2 

(///*eeSEND COPY OF PROGRAM TO SYSTEM AUTHORS o"//) 

OX90,"SCAN@=CONSTANT") 5 | 

CX90s"SCAN™=DROPBACK")» 

CXBOs"FUNCTION') 2 

CXB80,"GROUP")» 

(X8O0,"INDIRECTION™ De 

CXBOS"DOTFOT Is 

CXBOs"ELEMENT" D2 

CXaOe "INDIRECT" )» 

CX80s*wexCOMBINEARITHMETIC,™)>» 

(X80 se" *eCOMBINEGROUP s")s 

X80 2 "*e*COMBINEINDIRECTION,")* 

(X80, **COMBINESTRVARNAME "D5 

(X80, *eCOMBINEGOTOPART,")» 

(X80. "ee COMBINEFUNCTION,"™)¢ 

CXB8Oe"GO"TO PART") 

CXB80,"**CANDENSEPATTERN®)¢ 

(X86. "** CONDENSEREPLACEMENT" ) » 

CXA0s"**eSEMICOLON")» 

OX BOe*#* INSERT STRING CONVERT)» 
C/MeeEND FORMAT®*NFRMON) 3 

WRITECPRINT»NFRMOCI) 23 

END INFORMO$ 

PROCEDURE INFORMACIsP)3 

VALUE Is PS INTEGER I3 ALPHA P3 

BEGIN SWITCH FORMAT NFERMA « 

C/MeeENTRY = eA2)> 

CXBOe"PUSHC™» AZ") 2» 

CXBOe"POPC%sA297)")» 

CXBO,"RETURNCELL CO", A2s")"), 

- CXBO, "PROGRAM SEGMENT = "se AG)2 | 
C//*eeTLLEGAlL 3170 DESCRIPTOR AT WORD “sA2)» 
CAMSHEND FORMATTSNERMA 2 A6 DS 

IF rt > 8 OR I < 0 THEN I + 53 

WRITECPRINTSNFRMACIJ9P)3 

END INFORMAS$ | 

PROCEDURE INFORMICIeP)3 

VALUE Is P3 INTEGER Ip P3 

BEGIN. SWITCH. FORMAT NFRMI « 

CX80,"FIXED LENGTH = "slads 

C//"INVALID TYPE “sISe™ IN GROUPINGs")>» 

C//"ERROR IN DOTFCY IN STATEMENT "s16/)2 

C//"ERROR IN GROUPING IN STATEMENT “sI6/)>¢ 


C//"INTERPRETER STACK OVERFLOW IN STATEMENT "sT6// 28 


C//"eePATTERN ERROR IN STATEMENT 916), 
CX8Os"INPUT FROM FILE "s12), 
CXBOe"TEMPCELL Ce I20") CALLEDe")» 


01 
%02 
“03 
%04 
%05 
%06 
207 
%08 
%09 
%10 
Bit 
%12 
®13 
%14 
%15 
%16 
%17 
218 
Ri9 
%20 
“21 
%22 
%23 
$24 
¥25 
%26 
%27 
%28 
%29 
430 


200 
%O4 


%02 
%03 


BOG 


%05 


400 
201 
402 
403 
404 
405 
%06 
%07 


a) 
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30160000 
30170000 


30180000 


_ 30190000 


30200000 
30210000 


_ 30220000 | 


30230000 
30240000 


_ 30250000 


30260000 
30270000 
30280000 


30290000 


30300000 


_.20310000 


30320000 
30330000 


30340000 
30350000 


30360000 


_ 30370000. 
30380000 
90390000. 

_ 30400000 
30410000 


30420000 


_. 30430000 

30440000 
30450000 

WRITECPRINT»NFRMIICI), PisP2)3 


30460000 


~ 30470000 


30480000 
30490000 


30500000 | 


30510000 
30520000 


30530000 


30540000 
30550000 


30560000 
- 30870000 
30580000 
30590000 


30600000 


30610000 
- 30620000 
30630000. 

30640000 - 


30650000 
30660000 


30680000 


30690000 
. 39700000 


30710000 
30720000 


_€XB8O,"INSTNO = "el6)> %08 
CXBO,"INTERPRETER CALLED@*LEVEL = 513)» %09 
CXBOs"END INTERPRETER@*LEVEL "s13)>» %10 

— EXBOS,"INTRINSIC %s72)0. ¥11 

-OXBO,"NUMVAL & “oe 14200 212 
cxeO,"OUTPUT TO FILE "st2)> %43 


C/"#HEND FORMAT**NERMIM 211093 
WRITECPRINTSNFRMICIISP)S 
END INFORMI3 
PROCEDURE INFORMIACTsPisP2)3 


VALUE Is Pi» P23 INTEGER I» Pis ALPHA Pas 


‘BEGIN SwITCH FORMAT NFRMIA ¢ 
CXBOe"TEMPCELC™*T22") = “sans 00 
CXBOs"*NEWCELL ("+ 120%) & "sA2)s 201 
CXBOe"SP & MoT3e"} CODE = “+ A6)>s X02 


C/*eeEND FORMAT@#NFERMIA Ss T102A6)3 
WRITECPRINTsNFRMIALI]sPieP2)3 

END INFORMIAS - 

PROCEDURE INFORMIICIsP1sP2)3 

VALUE Te Pi» Pas 

INTEGER Ip Pile P23 


BEGIN SWITCH FORMAT NFRMIT « . 
CNDUMMY FORMAT@*NFRMITCOI"s2I10)5 %00 
C™DUMMY PORMAT@*NFRMIICLI%22710) > %O4 
CXBOe "ee DUMMY FORMAT@"NFRMIT[29")>» x02 
C//“#eFATAL ERROR IN SCANNER IN STATEMENT "sT65"3 SP = "sTd)>» %03 
CX80e"TT IN FROM nel2e"/"st2)s %04 
— CXB8O,"TT GUT TO "sTee"s%s12)s 205 
—-EXBS,"SCANt#SP 3. ",T3e%s POINT & "sTade %06 


C/*eeEND FORMAT TPNERMIT 2 271003 


END INFORMIT3 


CTE TEC SLA TELE ELLA LLY CLE LLL ILL LAL LLL tte! 
Sawa eeeee INITIALIZES YMBTABL tk iio Ra a OSI IORI IG I IOI IID i ii 
PROCEDURE INITYALIZESYMBTABL 3 

BEGIN DEFINE DUMMYs#3 


FOR fT © O STEP 4 UNTIL SCATTERNO 00 


BEGIN 
FOR J © SCATTERSIZE#16 STEP 1 WHILE yo« STWMAX DO 
ONAMTABLEDeJ}eL INK © CJ#t) & I CONCSTRS 
NEXTCELLET) «© CSCATTERSIZE4+16) & I CONCSTRS 
USEDSTEI) © TRUES 

ENDS 


SYNBTABLSETUP oF ‘TRUES 


END INITIALIZESYMBTABL} 


BekeeaeekINITIALIZESYMBTABL ewe kat eek da eee i ek ee Ne Hk et ek ee 


ReRERERERINPU Te ek eR eee tee Re ee eR RRR REET Rh Re he 


% TELETYPE INPUT PROCEDURES 


BOOLEAN PROCEDURE INPUT? 
BEGIN 


SWITCH FORMAT FLAGS * CS*FLAGSLOIS#O")» 
30670000 


C'S MESSAGE WAS TOO LONGesee PLEASE REENTERZSe"% De 
¢t4S MESSAGE WAS PARTLY LOST, e»-PLEASE REENTERSS¢")3 
ARRAY SYINKCOMBUFINSIZE 9113 


INTEGER SIZ» TIMEXe Fle Qs R3 
LABEL LOOP, NOGOs ABNORMs CHECKITs EXITs FAILS 
ALPHA S83 


a 


* 


e 


: Pee) i 3 ; bos oe t ‘ : i : : i : E : H 


30730000 


30740000 
30750000 


30760000 
30770000 


30780000 


30790000 


30600000 
30810000 


- 39820000. 
-30830000 


30840000 
- 30850000 


30860000 
30870000 


30880000 


30890000 


30900000 
30940000 — 


30920000 
30930000 


..30940000 


30950000 


30960000 | 
30970900 | 


30980000 
30990000 


31900000 


31010000 


31020000 
31030000 


31040000 
31080000 


31060000 

31070000 
31080000. 
31090000 


31190000 
31110000 


31120000 . 
91130000. 
34140000. 
31150000 - 


31160000 
31170000 


van. 32480000, 
— g1490000 
_  3f200000° 

94240000 


312200006 
31230000 


31240000 


31250000 
31260000 


.. 31270000 


31280000 
31290000 


INTEGER STREAM PROCEDURE SIZECA)3 
BEGIN SI © AS TALLY ©« O3 
DCINCHARCIF Scate" THEN JUMP OUTS SI*ST+13 TALLY*TALLY+41)3 
SIZE « TALLY 
END SIZE3 
STREAM PROCEDURE MOVECAsBsCoD)3 VALUE Cy D3 
. BEGIN SI*As DIe*Bs Nlepl+Ds DSeC CHR END MOVES 
% IF INFORM THEN INFORMIITC4sSTATCUSERI C9841 sSTATCUSERI,(1424))5 
IF_NOT pATACOMFP THEN GO TO FAIL3 
INPUT «© TRUE 
BREAK ¢ FALSE? 
FL «© DCSIZE ©¢ 03 
TIMEX «© TIMEC1L93 
LOOP? @ « OCSIZE DIV 83 R « OCSIZE MOD 83 
IF DATACOMF ats 
‘THEN READCDCINCSTATEUSERIs0)»BUFINSIZE*SINK£E*#)) ENOGO!ABNORM] 
FLSE GO TO FAILS 
TF BOOLEANCES*STATUSCSTATCUSERI2039).f2821]) THEN 
BEGIN 2 BUFFER OVERFLOW 
FL «© 23 
_60 TO LOOP? — 
END} 
TIMEX © TIMECL)3 
TF BOOLEANCSINKEO).025313) 
THEN SIZ « DCINCHAR 
FLSE SIZ -* SIZECSINK(13)3 
IF ocSiZe © pcSIZE + SIZ > MSGSIZE 
THEN FL « 1 
PL SE MOVE CSINKES ]*DCREADEO]+SIZ»R)3 
TF BOOLEANCSINKCO],£25%19) 
THEN GO TO LOOP; 
CHECKITs % CHECK FOR OVERFLOW AND TRANSMISSION FRROR 
IF FL > 0. THEN. 
BEGIN WRITECDCWRITEC#IJeFLAGSECFLI)3 
TF NOT OUTPUT THEN GO To FAIL3 
If INPUT THEN GO TO ExIT3 
END ELSE GO TO EXIT3 
ABNORM: § «& STATUSCSTATLUSER]20)3 
 ¥.C28812 3 4 IF BUFFER OVERFLOW 
IF BNOLEANCS, £28213) THEN FL © 23 
% £23912. = 1 IF ABNORMAL CONDITION 
% (26343 03 4 IF BUFFER {8 READ READY 
% £3081) = 1 IF UNIT NOT READY 
IF $,023:2)53 OR BOOLEANCS,£30%11) THEN GO TO FAILS 
; BEADCOCINESTATCUSER 120) +RUFINSEZEs SINKC #2) CNOGOr:NOGOI$ 
Noco! 
IF TIMECL) = TIMEX < WAITTIME THEN 
BEGIN WHENC123 GO TO LOOPS END3 
S « STATUSCSTATEUSER] 2193 
TF BOOLEANCS,£30%11) THEN GO TO FAIL? 
IF BOOLEANCS,£28813) THEN 
BEGIN FL ¢ 2) GO TO Loops ENDs 
FAIL? | 
INPUT ¢ FALSES 
FINOUSERSS 
EXIT END INPUT3 


* i: a 


ae , dates Bostanss Formas, tar. fs Ris 
) P . . § i 7 .. 
: : : i : ea : ‘ i : 


i 


i 


i 


i 
i 
| 
{ 
i 


31300000 
31310000 


31320000 


31330000 | 


31340000 


31350000 
31360000. 
31370000 


31380000 


31390000 


31400000 
31410000 


31420000 | 
31430000 


31440000 
31450000 

31460000 
31470000 


31480000 


31490000 
31500000 
31510000 
31520000 


31530000 
31540000 
31550000 


31560000 


31570000 | 
(31580000 
31590000 


31600000 


— 31610000 


31620000 


31630000 
31640000 


31650000 


31660000. 
31670000 


31680000 


_ 31690000. 
31700000 
31710000 
31720000 | 


31730000 
31740000 


31750000 
31760000 
31770000 
431780000 | 

31790000 


31800000 


ua t810000 
31820000 
31830000 

31840000 


31850000 
31860000 


a oe eo o» & Me 


Xeencesess= END DATA com INPUT PROCEDURE sss22erenssemsezeeaggssssstesass 
SaevewewH INSERTSTRINGCONVERT Weta t ee ewe ee ee ee eek ee 
PROCEDURE INSERTSTRINGCONVERT(SP)3 

VALUE SPA 

INTEGER SRS 

BEGIN INTEGER 13 


% IF INFORM THEN INFORMO(C30)3 


IT # PPOINTESP] + PSIZECSPI3 

AA ",813 

MV COs AAs OsCODELI Wal, 073 

PSIZECSP] « PSIZECSP) + 23 

PNAMECSP) ¢ FALSE3 

PTYPECSP) « 193 & COMBINED ARITHMETIC EXPRESSION 

END INSERTSTRINGCONVERTS 

Ke we sew a *KTNSERTSTRINGCONVER T ote te ie tm te de eB oe ae te fer ie te ite ae de te iii Sie tote tk tote 
Keak ewkak INTERPRE TE Ro te te det tek eed tt Re eK i EEE HRA RHEE ERNE KHER REE a 
% THIS 1S THE CENTRAL CONTROL ROUTINE FOR THE INTERPRETER. Iy rs 

% SEVERAL THOUSAND CARDS LONG, 
PROCEDURE INTERPRETERS 

BEGIN 


Sakae eeakekeaeeakhietk 


INTEGER STREAM PROCEDURE CHARCLsI)3 
VALUE Te” 
BEGIN St + L$ SI-¢ SI 4 13 


OY « LOC CHARS DI « DY + 73 
DS + 4 CHR3 

ENN CHAR3 

Re kaeee eke eek ek kkk 


BOOLEAN STREAM PROCEDURE EQ(NsLIeTiolest2)3 


VALUE Neo Tis 123 


BEGIN S1 + Lis SI ¢ Sy + 113 


“DI (23 DI © nt + 123 


NCte S8¢ # Dec THEN JUMP OUT) 

IF TOGGLE THEN TALLY « 0 ELSE TALLY © 13 
EQ © TALLY3 

END E@s. 

Rekkake ethene eee wee 

STREAM PROCEDURE MVCNeLioTisl2s le)? 
VALUE No Its 123 


BEGIN St-« 143 St © St -# 143 
DI. U2} DY « DIo+ 123). 
OS ¢ N CHRS. 
ENO MOVE} 
eT eT TST TTT TTT TTT) 
ALPHA 
FCTa 
FCTN» 
FOCTVs 
RETURNVALS 
ALPHA ARRAY 
INSTLOSMAXINSTSIZE, wi3 
DEFINE | 
“DIE. = GO TO DEAD #, 
FAILsGO TO FAILED#S 
BOOLEAN INGOTOPART? 


ALPHA FIRSTCH3 
LABEL 


ee | 


te 


coe ‘i i i 
al i 2 B : @ F : ‘ ‘ 4 
: ! } : . Hl i : i ‘ i t i : 


a 


Board Bytinsan Forme, inc. 3% ees 
: . i £ er : 2 i ae : , ae . Z mre, & " i : ; a 


31870000 ARITHOVFLs % INTEGER OVERFLOW IN ARITHMETIC 
31880000 BRANCH» % INTRINSIC FCT CASE STMT 
31890000 DEAD» % FATAL ERROR LABEL 
31900000 DEFINEDF CTs % PROGRAM#NEFINED FUNCTION 
31910000 FCTFAIL» ® FAILURE OF FUNCTION CALLS 
31920000 OVOZFRO, % DIVIDE@BY"ZERO IN ARITHMETIC 
31930000 FAILED» % STATEMENT FAILURE LABEL 
31940000 FIXERR» 
31950000 GOTOs . 
319460000 INTERPRET» | 
31970000 LIMITHITs 
“31980000. MINLEF » 
91990000 NONNUMERIC? % NON@NUM ARITH OPERAND 
32000000 PERRORs 
32010000 PFIX, 
32020000 PSCANs - 
32030000 REFSET»s 
32040000 RETURN» : 
32050000 SCANFAILURE, 
32060000 - SETGHs 
32070000 SUCCEED» % FUNCTION SUCCESS LABEL 
32080000  UNDEFFCT». % CALL OF UNDEFINED FUNCTION 
32090000 UNDEF INEDS % UNDEFINED LABEL 
32400000 LABEL % LOcAL TO SORENESS 
32110000 - SRUANCES 
32120000 OROPRACK, 
32130000 NEWPOINTs 
32140000 NEXTPATTERN»s 
32150000. | SCANERR> 
32160000 SCANSUCCESS» 
32170000 = SIZEFAILURES 
32180000 % 
32190000 NEARPOINT « 93 
32200000 LEVEL © LEVEL + 13 
32210000 AA « ENTRY? 
32220000 ENTRY © RULESCLEVEL)] ©¢ 03 
32230000 % IF INFORM THEN INFORMICO,LEVEL 23 
32240000 GO TO SFTGO3 
32250000 & 
_.32260000 INTERPRET: | 
32270000 % START OF A SINGLE INSTRUCTION 
32280000 IF DFATH THEN DIES 
32290000 % IF YJNFORM THEN | 
32300000 % REGIN WRITECPRINTSFBL)S 
32310000 & WRITECPRINTo L72INSTEC¥I)3 
32320000 % _.. INFORMICBRaINSTNO)D? 
32330000 % MEU ETESE (On 004 
32340000 % — END 
38380000 rr ALIMETEXISTS. THEN 
323460000 BEGIN 
32370000 TF RULELIMITEXISTS THEN 
32380000 = _——swxTF _RULES(CO} > RULELIMIT THEN GO TO LIMITHIT3 
32390000 Te CPULIMITEXISTS THEN . 
32400000 IF TIMEC2) > CPULIMIT THEN GO TO LIMITHITS 
32440000 IF IOLIMITEXISTS THEN . 
32420000 IF TIMEC3) > TOLIMIT THEN GO TO LIMITHIT3 
32430000 IF DEBUGGING THEN 


(STING conT'd) 


@® e@eeeeeee080 0@ 0@ @ @ ®@ e ® @ @ @® @ @ 


SAnoie Husiages Fornss, Hi. SY Peres 


32440000 


32450000 


. 32460000 
32470000 


32480000 


32490000 
32500000 
32510000 


32520000 


32530000 
32540000 


32580000 


32560000 
32570000 


32580000 
32590000 


32610000 


32620000 


32630000 
326460000 
32650000 


32690000 
32700000 


32740000 
32720000 me 
Kiss cee escuaenapacdats sa enbved aba dence 
ReaewneeeeFUNCTION CALL RRR Raed Rey 


32730000 


32740000 


32780000 


32760000 
32770000 
32780000. 
32790000 » 
32800000 
32810000 
32820000. 
32830000 


32840000 


- 32850000 
328600000 
32870000 


32880000 


32890000 | 
32900000 


32910000 


- 32920000. 


32930000 
32940000 


32950000. 
32960000 
32970000 

32980000 


32990000 
33000000 


RULESEO] © RULESEO] + 43 


We 7 om ~~ 


IF DEBUGRULELIMITEXISTS THEN 
IF DEBUGRULELIMIT $ RULESCO} THEN 
BEGIN SUSPENDREASONE1) «© TRUE 
DEBUGCSETGO)3 
END} 
ENDS 
% INCR GLOBAL RULE COUNT, 
RULESCLEVEL) * RULESELEVEL] + 43 % INCR LOCAL RULE COUNT. 
SP © RSIZE # FRONTEND ©« REAREND © 03 


INGOTOPART © SELFREFLAG « NOREPLACEMENT © VARFLAG © FALSE3 


SUCCESS + TRUES 
RELATIVEPOINTER © 13 


“% CONTROLPOINT SHOULD BE AT THE 1ST CHAR OF THE INSTRUCTION, 


% FIRST CHAR NO LONGER IN USE BY INTERPRETER, 


PSCANS % NEXT PATTERN ELEMENT 


-32600000 — 


32660000 | 
-32670000 
32680000 


IF CNEARPOINT#NEARPOINT4#RELATIVEPOINTER) 2 63 THEN 
BEGIN INSTRUCT © INSTRUCT + NEARPOINT.W3 
NEARPOINT ¢ NEARPOINT,C3 
ENDS 
RELATIVEPGINTER © 03 
% CONTROLROINT SHOULD NOW POINT TO THE NEXT PATTERN ELEMENT, 
MVC3eCONTROLPOINT#AA22)3 &% GET NEXT PIECE OF CODE. 


“% IF INFORM THEN INFORMAC,AAD3 


CASE AA.C2 OF 
BEGIN 


See CTS T TST TS TTT TT LITT TILT TTT TTT TTT TTT 
Ree eeeeaaOe CONES eke eek aekeke ke eaReeekenn 
% O=9!t FRRORS | 


SESSSR ERB 


% 10% "#" FUNCTION CALL 
% 29cHAR POINTER TO SYMB TABLE LOC OF FCT 
% 41 CHAR GIVING THE NUMBER OF PARAMETERS, 
BEGIN 
% IF INFORM THEN INFORMO(14)3 
MKS « SP = CHARCCONTROLPOINT+3)3 % FIND FIRST PARAM, 
RETURNVAL * 0% % HOLDS ST LOC OF RETURN VALUE, 
FCT # AA,fiBti20 
PTYPEEMKS) « 13 
FCTV © VALUCFCTI3. 
BRANCH! 
IF BOOLEANCFCTVe INUSE) THEN 
IF NOT TRACEFCTCALLC(FCT) THEN GO TO FCTFAIL3 
IF BOOLEANCRCTVeliti]) THEN GO TO DEFINEDFCTS 
% IF INFORM THEN INFORMICI1sFCTV«LINK?S 
CASE FCTVeLINK OF 
ETE TE TATTLE TLE LETTE LETTE Tete i 


Reeveeeew INTRINSIC FUNCTIONS eked ee ek eee 
% THE INTRINSIC FUNCTIONS ARE ARRANGED IN THE FOLLOWING ORDER! 


Be a ae ae 3G Be 22 


NOUN wi 


1 ANCHOR 

2 CALLE. |. 
‘CLOSE 
DATE 
DEFINE 
DETACH 
DUMP 


B5700 
SNOBOL 
CoMPILER 


(LISTING conr'd) 


j i 
: 2 : ; a : : ! i : 


33010000. 


33020000 
33030000 


33040000 


33050000. 
33060000 


33070000 — 


33080000 
33090000 


. 399100000 _ 


33110000. 


33120000. 
33130000. 


33140000 
33150000 


33160000, 

33170000. 
93180000 

33190000. 
33200000 


33210000 
33220000 . 


33230000 
33240000 
33250000 


33260000 
33270000 


_..33280000 
33290000 


33300000 


.. 33310000. 
33320000 


33330000 


. 33340000. 


33350000 


33360000 
_ 33370000 


33380000 
33390000 


_ 33400000. 
33410000 


33420000 


33430000 


33440000 


FOF 
0&9 
EQUALS 
EXECUTE 
FILE 
FILL 
GE 
267 
elE 


LEVEL 


Look 
oL.T 


‘MODE | 


gNE 
oNUM 
OPSYN 


PAGE 
POP 
PUSH 


sREMDR 
REWIND 


RULES | 
SIZE 
“SPACE 


TYME | 
TRACES 


TRACEF 
TRACEL 


TRIM. 
UNANCH 


UNEOL 


Walt 
SUSPEND 


STATUS 


USER 
SEEK 


RELEASE 


RECORD 
TRACE 


ASSIGN 


coPY - 
SEARCH 


) a RANE. 


33480000 BEGIN & c@be FOR INTRINSIC FUNCTIONS FOLLOWS? 
33460000 % Of UNDEFINED 
33470000. ~~ GO To UNDEFFCTS. 
33480000 % 11 ANCHOR i” 
33490000 BEGIN PTYPELO) * 33. 
33500000 TF Sp > MKS THEN 
33510000 BEGIN IF NOT NUMVALCPSTEMKS]e11) OR Ti < 0 
33520000 | _.. THEN GO TO FCTFAIL; 
33530000 PSIZETO)] « 13 
33540000 END ELSE PSIZE[O] «© ANCHORSIZE3 
33550000 60 TO SUCCEFD3 
33560000 END ANCHORS | 
33570000 & 2: CALLFCPePisP2eeeeePN) CALLS THE FUNCTION NAMED BY Fe WITH THE 


fiooeg Busines? corrris, ind. ov Teddi 
eee F opin : e oe he: ; : ; ee : . Puoaaes t A % 
coe " fn poe i : ite i i S| : i Pil : : 7 
d i : i H : z : caer : : i i 


Pasens. ids 


: Alcora Buuinags 


Launi 
+ : } 


som 


33580000 | 


33590000 
33600000 
33610000 


33620000 


33630000 


33640000 


33680000 
33660000 


33670000 
33680000. 


33690000 


33700000 


33710000 
33720000 


_.33730000 
33740000. 
33750000 
_ 33760000 
33770000 


33780000 


33790000 


33800000 
33810000 


33820000 
33830000 


33840000 
33850000 


~ 338600007 
33870000 — 
33880000 | 

33890000 


33900000 
33910000 


eo 
33930000 
33940000 — 
aera 


33960000 
33970000 


33980000 _ 
33990000 ~~ 
34000000 


34010000 
34020000 


34030000 
34040000 
34050000. 
34060000 
34070000 


34080000 
34090000 


34100000 
94110000 . 
34120000. 

934130000 


34140000 


Tone a 


ne ~~. ~<» ° rire 


% PARAMETERS Pis P2se seen PNe 

BEGIN SEGMENT 

AA * PSTIMKS]3 

AB « VALUCAAI3 

FCT « ENTERSTCABsSeDATALABs Ret] 2 ABs Che "FCT" 3 
FCTV «© VaLUrFCTI3 

SP «¢ SP = 13 


FOR 1 © MKS STEP 1 UNTIL Sp 00 


BEGIN PSTEI}] © PSTCI+133 
_PNAMELT} © PNAMELIe173 
END} 

GO TO BRANCH} 

ENO CALLF3 


% 38 CLOSECFsP) 


% CLOSECFeP) CLOSES THE FILE ASSOCIATED WITH $F» IN THE MANNER 


% SPECIFIED BY Pe THE VALUES OF P ARE? 


‘Wem ONLY FOR TAPE FILES, THE TAPE IS POSITIONED JUST BEYOND 
THE END*OF*FILE FOR THE CURRENT FILE. IF LAST 1/0 
“OPERATION HAD EOF, NO ACTION IS TAKEN, 
"LOCK" CLOSES THE FILE AND SAVES THE UNIT FOR THE PROGRAM, 
NEW OISK FILES ARE SAVED FOR THE TIME GIVEN IN THEIR DECLAR®™ 
_ATIONS# TAPE FILES ARE REWOUND AND THE OPERATOR IS TOLD 
TO REMOVE THE TAPE AND SAVE IT, 
"RELEASE" RELEASES 1/0 UNIT TO THE SYSTEM, TAPE FILES ARE 
~ REWOUND AND DISK FILES ARE DESTROYED IF CREATED BY 
THE PROGRAM, 
"PURGE" THE FILE IS CLOSED» PURGED» AND RELEASED TO THE 
SYSTEM, 


“BEGIN SEGMENT _ 


IF SP $ MKS THEN Go TO FCTFAILS 


IF SP*MKS = 1 THEN IF NOT NULLARGSC1) THEN GO TO FCTFAILS 


INDIRECTCMKS)3 

AA © PSTEMKS)3 

AB + PSTCMKS4113 

AA © YOCAAI3 

IF AAsTOUSESO OR TL*AA.FILNO®O THEN GO TO FCTFAILS 
AB ¢ VALUCABY3 


“IF €12¢ABeS) > ? THEN GO To FCTFAIL3 


AC « 03 


“IF Y2 3 0 


THEN AC #0 | 
ELSE MVC12sFIRSTCHARCAB)»ACs6912)3 


AC © ACS 


IF ACs 0 THEN CLOSECIOFILEtI12) ELSE 
IF Ac = "LOCK" THEN LOCKCIOFILELIi3¢SAVE) ELSE 
IF AC = "SAVE" THEN CLOSECIOFILECI1],SAVE) ELSE 


‘TF Ac = "PURGE" THEN CLOSECIOFILECI13*¢PURGE) ELSE 
IF Ac ® "RELEASE" THEN 


. BEGIN. TOFILEOPENCI1) « FALSES 
CLOSECIOFILELCILI,RELEASE)S 
ENO ELSE 
IF Ac = "**" THEN CLOSECIOFILECIII,*) ELSE 
_ BEGIN IF PRINTMESSAGES THEN. 
BEGIN: MESSAGETC8s,INSTNOD3S- 
MESSAGETTICGsINSTNO)S 
ENDS 
6N TO FCrTFAIL? 


e ¢ 


fegare Metis Tare, VF ks 4300 
: my a pees i Pht : : Peutioys j j ‘ ; ; : : he : i 
i : e Use Jase, i i ! i E ‘i ; H ota ie 
iB : 4 = ' . H a [ ' H i t H 


34150000 


ENDS 


34160000 60 To SUCCEEDS 
34170000 END IYNTRINSTC FUNGTION CLOSE} 
34480000 % 4: DATEC) RETURNS THE CURRENT DATE IN THE FORM: 
34190000 =} bes MM/DD/YY 
(34200000  ==BEGIN SEGMENT 
34210000 Ab & DATES | 
34220000 AB © TEMPCELL3 
34230000 AC * STRING(8sAB)3 
34240000 MVEBsAAs Os FIRSTCHARCAC))$ 
34250000 VALUTAB] © AC$ 
34260000  RETURNVAL © ABS 
34270000 = =60 To SUCCEED} . 
34280000 END LDATES 
34290000 % St DEFINECAsBsC) CREATES A SNOBOL FUNCTIONe THE VALUES OF THE 
34300000 % PARAMFTERS ARE OF THE FORMS! 
34340000 4 A tts <FCT NAME> ¢ <PARAMS> ) 
34320000 x B is «LABEL? | . 
34330000 —& C :ts <LOoC VARS> 
34340000 % <FcT NAME> IS A LEGAL SNOBOL IDENTIFIER. 
34350000 % <LABEL> IS A LABEL THAT OCCURS IN THE PROGRAMs OR IS NULL. IF 
34360000 —s_ & ‘B YS_NULL» THE ENTRY POINT IS TAKEN TO BE SPELLED THE SAME 
34370000 = & AS <FCT NAME>, 
34380000 % <PARAMS> AND <LOC VARS> ARE THE FORMAL PARAMETERS AND LOCAL 
(343900000 & VARIABLESe THEY CAN BE NULL» OR CAN CONSIST OF A LIST OF 
34400000 % IDENTIFIERS SEPARATED BY COMMAS. SEE ALSO THE PROCEDURE 
34410000 % SNBLDEFINE AND THE DEFINE PART OF PROCESSCONTROLCARD, 
34420000 BEGIN SEGMENT _ 
34430000 If SP = MKS < 3 THEN 
94460000. TF NOT NULLARGS(3*SP4#MKS) THEN GO TO FCTFAILS 
34450000 ~—s TF. SNBLDEFINECPSTLIMKS J sPSTEIMKS 41] ePSTELMKS4+2)) 
34460000 THEN GO TO SUCCEEDS 
34470000 MESSAGEI(9*TNSTNO)3 
..34480000 MESSAGETTIC9sINSTNOD3 
34490000 GO TO FCTFAIL3 
34500000 END LOEF INES 
34510000 % 6: DETACH( Fev) TERMINATES ANY I/O USE OF THE QUANTITY NAMED BY Fe 
34520000 % THE TYPE OF THIS QUANTITY IS DETERMINED BY THE FIRST CHARACTER 
34530000 % OF Vs AS FOLLOWS © 
94840000 = % "8S" OR NULL = STRING NAME 
94550000 _ weet om FUNCTION NAME 
34560000 — nee = LABEL 
Pyasroanes © rath. SEGMENT | 
34580000 IF SP < MKS THEN GO TO FCTFAIL3 
34590000 IF Sp = MKS > 4 THEN © 
34600000 BEGIN AA « PSTEMKS4+113 
34610000. RB ® VALULAATS 
94680000. AL CHARCE IRS TCHARCAB I}. 
6630000 -=—s—“‘<i«é«‘ OBS “wm CO COR AC & "S* TREN AC + "SYMB™ ELSE 
34640000 te AC = "FE" THEN AC © “FCT” ELSE 
34650000 | IF AC = "L" THEN AC © "INST® ELSE GO TO FCTFAIL3 
34660000 END ELSE AC © "SYMB"3 
34670000 AA & PSTEMKS)3 
34680000 AB © VALUCAAJ3 
34690000 AA © ENTERSTCABsS#*DATACAB Rs #) pA gCHs ACS 
34700000 VALULAAY.IOUSE © IOLAA) © O03 
34710000 GO To SUCCEEDS 


ah oh we oie 


@® e@eeeeeee##eeeese @® @ @¢ @¢ @ @ @ @ 
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° 


34720000 


END LDETACH? 
34730000 % 71 DUMPC) 
34740000 BEGIN SEGMENT 
34750000. = MESSAGEIC1O,INSTNODS % DUMP REQUESTEDees 
34760000 IF INFORM THEN BEGIN WRITESTS WRITEDATA$ ENDS 
34770000 STRINGDUMPCINSTNO)$ 
34780000 G60 Tn SUCCEEDS. 
34790000 END DUMPS 
34800000 % 8: ENFCF) SUCCEEDS IF THE LAST I/0 OPERATION ON THE FILE ASSOCIATED 
34810000 & WITH $F FAILED DUE TO END*OF*FILE. IF NOT, OR IF SF IS NOT AN 
34820000  ¥& I/D STRINGs THEN EGFCF) FAILS.» 
34830000 BEGIN SEGMENT 
(34840000 IF SP <¢ MKS THEN GO TO FCTFAILS 
34850000 INDIRECTCMKS)3 
34860000 AA © VALULEPSTEMKS]]3 
34870000 IF AAsIOUSE = 0 THEN GO TO FCTFAILS 
34880000 GO To IF IQOEOFCAAsFILNOJ THEN SUCCEED ELSE FCTFAIL3 
34890000 END fOF3 
4900000 % 91 .EQtAs8) SUCCEEDS IFF BOTH A AND B ARE NUMERIC» AND A ® B, 
34910000 BEGIN SEGMENT 
34920000 IF SP = MKS < 2 THEN 
_34930000 IF NOT NULLARGS(2*SP4#MKS) THEN GO TO FCTFAIL3 
34940000 IF NUMVALCPSTEMKS]2AA) AND NUMVALCPSTOEMKS+175AB) 
34950000 THEN GO TO IF AA = AB THEN SUCCEED ELSE FCTFAILS 
34960000 IF PRINTMESSAGES THEN 
34970000 BEGIN MESSAGEAICOs"EQ™s INSTNODS 
34980000 MESSAGETTAICO*#"EQ*» INSTNO)D3 
.34990000. ENDS. 
35000000 GO To FCTFAIL3 
35010000 ENDS &% ,EQCAsB) 
35020000 % 10! EQUALS(AsB) SUCCEEDS IFF A AND 8 HAVE THE SAME. STRINGS AS VALUES, 
35030000 BEGIN 
35040000 IF SP = MKS < 2 THEN 
35050000 —— IF NOT NULLARGS(C2*SP#MKS) THEN GO TO FCTFAIL3 
35060000 AB « PSTEMKS23 
35070000 AC ¢ PSTEMKS41)3 
35080000 = AB © VALULABY3 
35090000 AC © VALULACTA 
35100000 GO To IF AB.S # AC,S 
35110000 THEN FCTFAIL 
35120000 ELSE TF FQUALCAB.S#FIRSTCHARCAB) sFIRSTCHARCAC)) 
35130000 THEN SUCCEED 
35140000, ELSE FCTFAILZ 
35150000 END LEQUALS3 
35160000 % 11: EXECUTECS) CURRENTLY WORKS IF THE FIRST CHAR OF $ IS QMARK»s IN 
35170000  % WHICH CASE THE ALGOL "ZIP WITH <ARRAY ROW>" ITS EXECUTED ON S3 
35180000. 4 ‘OR IF S IS AN INPUT STRING» IN WHICH CASE THE ALGOL "ZIP WITH 
38190000 & «FILE PART>" IS EXECUTED ON THE FILE BELONGING TO Ss OR IF $ 
35200000 ~—s-&-STARTS WITH “*"%» WHICH IS A SNOBOL CONTROL CARD. 
35210000 BEGIN SEGMENT 
35220000 IF MKS 2 SP THEN GO TO FCTFAILS 
.. .85230000 AA © PSTEMKS]3 eae 
35240000 AaB « VALULAA]S 
35280000 IF BOOLE ANC AB, INUSE) THEN % ZIP WITH FILE 
_ 35260000 BEGIN 
35270000 IF BOOLEANCABsINUSE) AND AB.FILNO > © THEN 
35280000 BEGIN 


oe 8 


: é PP pt AE : Ore fom * i fs } i peace 


=] 


35290000 


35300000 
35310000 


35360000 


(35370000 
35380000 


35390000 
35400000 


35410000. 


35420000 
35430000 


.. 35440000. 
35450000. 

95460000 
_....33470000 


35480000 
35490000 


_... 33920000 
35330000 
- 35340000 
35380000 


rF 


IF 


60 


ZIP WITH TOFILECAB.FILNOIS 

GO TO SUCCEEDS 

ENDS | 
GO TO FCTFAILS - 
END. 
CIL©CHARCFIRSTCHARCAB))) = QMARK THEN &% MCP CONTROL CARD 
BEGIN ALPHA ARRAY ZLO1AB.017210)13 
MOVECSTRINGLOCCAB)eZ0#390)3 
ZIP WITH ZCe]3 


60 TO SUCCEED; | 
ENDS 


Tq = = THEN % SNOBOL CONTROL CARD 
BEGIN ALPHA ARRAY SCRATCH(0#(AB,S)aW73 
INSTSYZE «© AB,S3 
MOVECINSTSIZEsFIRSTCHARCAB) »SCRATCHLOI> 0 


_SCRATCHEINSTSIZE,W) © STOPPER; 


PROCESSCONTROLCARD(SCRATCH)3 
GO TO SUCCEED 


END Pee es 
To FCTFAILS 


END LEXECUTES | 


35500000 412: FILECNAMEs Te OsBUFFERS»REC, SIZEsBUFF eSIZEsSAVE FACT» DSKe AREAS s SIZE) 


35510000 x FILECeee) OPENS A FILE» AS DESCRIBED BY THE PARAMETERS$ 
35520000 % NAME CONTAINS | ‘THE NAME OF THE PRIMARY I/0 STRING 
2 395530000 & tT, 20 STARTS WITH "I" FOR INPUT FILES» "O" FOR OUTPUT FILES» AND 
35540000 % ts NULL FOR FILES WITH BOTH INPUT AND OUTPUT USE, 
35550000 % BUFFERS IS THE NUMBER QF BUFFER AREAS TO BE USED. 
_.95560000 & REC»SIZE 1S THE SIZE CIN CHARACTERS) OF AN I/O RECORD 
35570000 «= & BUFF.STZE IS THE SIZE CIN CHARACTERS) OF A BUFFER (PHYSICAL RECORD) 
35580000 & SAVE.FACT 1S THE SAVE FACTOR FOR FILES CREATED BY THE PROGRAM 
35590000  & DSK,ARFAS IS THE NUMBER OF DISK AREAS FOR NEW DISK FILES ¢$20) 
35600000 % SIZE IS THE SIZE OF ONE OF THESE DISK AREAS» IN LOGICAL RECORDS. 
35610000 BEGIN 
vou 39620000 INTEGER. _ . 
35630000 AREAS» 
95640000 ASIZE» 
35650000.  —— BLOCKCOUNT, 
35660000 BUFFERS» 
354670000 BUFSIZE>s 
.. 35680000. CY¥Ce 
35690000 ReCSIZEs 
35700000 SAVEFACTORs 
. 95740000 —TYPEA,  — % "ALGOL" TYPE! 99 405 OR 11 
35720000 TYPES, % "SNOBOL”™ TYPE? ts 22 OR 3 
35730000 UNIT? 
oe etiiwwn .99740000 | MONT TOR. PRINT. CAREAS*ASIZE*ALQCKCOUNTs BUFFERS? BUF SIZEs CYC REC SIZE» 
ee ; 35750000 .. LOSIZFsVALTABL* LOUSAGE» 
35760000. SAVEFACTOR*TYPEAsTYPES*UNIT# ARs ABs AC II» 1203 


See se SS TIO000 ge 
35780000 GO. ‘TO UNDEFFCTS 7 UNTIL A WAY 1s FOUND TO IMPLEMENT FILE DECLARATIONS 
35790000 UNIT © O3 

35800000 CYC « 163 | 
358140000 FOR foe 41 STEP 1 UNTIL FILMAX BO 


35820000 Ie NOT LOFILEOPENCI) THEN 
z _ 35830000 IF IQUSAGELI}.CYCLE < CYC THEN 
35840000 BEGIN UNIT ¢ Is CYC * IQUSAGELTJ+CYCLE# END} 


35850000 IF UNIT = 0 THEN 


Moe Sualagse Paras, ine sy ihe 
* ' wt 1 j ie n 7 ee * eee 4 ‘ : : . 3 a HAC : ; z ox ee 
‘ f ‘ oe i . i 7 i te 3 i : : ‘ 4 t 
: i i i : 7 poe : : : H t i H i : 
: : i i i j H oe i i i . i Hy : 


rvs, inc. s+ 


ace 


PERS CUS ES 


: 
ee @ 


j 
\ 


i 
H 


ps 


35860000 
35870000 
35880000 
35890000 


35900000. 


35910000. 
35920000 


~ 35930000 © 


35940000 
35950000 


98960000 


35970000 


35980000 | 


35990000 
36000000 


36010000 | 
. 36020000. 

- 36030000. 

36040000 — 


36050000 
36060600 


.36070000 


36080000 


- 36090000. 
36100000 


36110000 
36120000 
36130000 — 


96440000 


36130000 
36460000, 
36170000 
36189000 
36190000 


--F36200000° 
— RECSIZE « CRECSIZE+7) eW3 


36210000 


36230000 


36240000 


36250000 | 


"36260000 
36270000 
36280000 


36290000 
36300000 


36310000 


36320000 — 
96330000. 


: eee 
36 350000 


36360000 
36370000 


36400000 


36420000 


IF 


BEGIN MESSAGEI (14+ INSTNODS % NO FILE AVAILABLE 
GO TO FCTFAILS 

ENDS 

Sp = MKS < 3 THEN GO TO FCTFAILS 


© PSTEMKS4133 


-@ VALULCAAY3 


ABsS = 0 THEN | 
BEGIN TYPEA © 113 
TYPES © 33 


END ELSE | 
IF. 
BEGIN TYPEA ¢ 93 


CTIFCHARCDATALAB.RSABW1sh8.C)) = "I" THEN 


TYPES © 23 

END ELSE 

114 = "O" THEN 
BEGIN. Vyeee + 103. 


‘TYPES © 123 


END ELSE. 


BEGIN % ERROR? INVALID I/0 TYPE 
MESSAGEILC1Ss*INSTNODS 


40. TO. FCTFAILS 


ENDS 


“NOT NUMV AL CPSTEMKS#21, BUFFERS) OR BUFFERS < 4 THEN 


BEGIN & ERROR? INVALID BUFFER NUMBER 
MESSAGEIC16eINSTNOD3 

Go TO FCTFAILS 

ENDS 


Sp = MKS < 3:THEN RECSIZE ¢ O ELSE 
Te NOT NUMVALCPSTEMKS#33,RECSIZE)” OR RECSIZE < 0 


OR RECSIZE > 8182 THEN 

BEGIN & ERROR! INVALID RECORD SIZE 
GO TO FCTFAILS 

ENDS 


TOSIZECUNIT] © RECSIZE; 


IF. 


IF 


““yg3ene0e 
36390000 


36410000 


SP 7 MKS § 4 THEN BUFSIZE © 0 ELSE 
IF NOT NUMVALCPSTCMKS#4)*BUFSIZE) OR BUFSIZE < 0 
OR BUFSIZE > 8182 THEN 
‘BEGIN & ERROR! INVALIO BUFFER SIZE 
GO To reTrales ae 


ENDS 
“aUraie. © (BUFSIZE$7). Ws 


Sp = MKS ¢ 5 THEN SAVEFACTOR ¢ 0 ELSE 
TF NOT NUMVALCPSTEMKS#5]sSAVEFACTOR) OR SAVEFACTOR <¢ 0 THEN 
BEGIN % ERROR? INVALID SAVEFACTOR 


GO TO FCTFAILS 


ENDS. 


“Sp = MKS < 6 THEN AREAS * 0 ELSE 


Tr NOT NUMVALCPSTECMKS46372 AREAS) OR AREAS «< 0 
OR AREAS > 20 THEN 
BEGIN &% ERROR’ INVALID NUMBER OF DISK AREAS 
GO TO FCTFAILS — ae oe ee 
ENDS 
Sp = MKS <7 THEN ASIZE ¢ 0 ELSE 


“TF NOT NUMVALCPSTEMKS47)sASIZE) OR ASIZE < O THEN 


BEGIN X% ERROR? INVALID OISK AREA SIZE 


§ DAIS. : Le i ‘ BRS! i : ees < : i d 4 ‘ : i 
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36430000 | 


36460000 
36450000 


36460000 
. 36470000 


36480000 


36490000 


36500000 
36510000 


36520000 
"36530000 
36540000 

_ 36550000 | 


36560000 
36570000 


36580000 
36590000. 


36600000 


_ 36610000 


36620000 
36630000 


36640000. 
36650000 


36660000 


36670000 | 


36680000 
36690000 


36700000 | 
-. 96710000 

36720000 

36730000. 


36740000 


36750000 
36760000. 


36770000 


36780000 
36790000 | 


36800000 
36810000 


36820000 | 


36830000 


36840000 | 
36850000 


36860000 
36870000 


_..36880000_ 

36890000 
36900000. 
96910000. 
36920000 


36930000 


36940000 | 


36950000 
36960000 


.. 36970000 


36980000 
36990000 


de BS BE DR ae Ve Be ae Be de 


GO TO FCTFAILS 
END3 
CYC © TOUSAGECUNITI.CYCLES 


CYC # CYC + 43 


% CREATE NEW FILE HERE, 
GO To SUCCEED; 
END INTRINSIC FILES 


133 FYLLONAME »MF IDF ID»MEDI As DATE sREEL s CYCLE) FILLS THE FILE 


% $NaME WITH A DESCRIPTION - AN ACTUAL FILEs AS DESCRIBED BY 
% THE. Capel AS FOLLOWS 
FIO/FID IS THE EXTERNAL NAME OF THE FILE. IF EITHER 
MFID OR FID CONTAIN MORE THAN 7 CHARS» ONLY THE FIRST 7 
WILL BE USED. IF EITHER IS NULL» "0000000" WILL BE USED. 
MEDIA IS ONE OF THE MEDIA OTGITS LISTED IN THE ALGOL MANUAL, 
DATE 1S THE DATE THAT SHOULD BE USED WITH OUTPUT FILES» 
USUALLY THE CURRENT DATE. IT CAN BE IN THE FORM MM/DD/YY 
OR THE FORM YYDOD CWHICH IS HOW IT IS STORED IN THE 
STANDARD FILE LABEL) 
REEL 1S THE REEL NUMBER* FOR MULTI@REEL TAPES 
CYCLE IS THE CYCLE NUMBERs ALSO FOR TAPES MAINLY, 
z IF ANY OF THE PARAMETERS IS MISSINGse IT WILL NOT BE ASSIGNED; 


% THUSs MULTIPLE CALLS OF FILLC) CAN FILL IN DIFFERENT PIECES OF 


% INFORMATION. IF FILEC) IS TO BE EFFECTIVE, IT MUST BE USED 


% BEFORE ANY [70 IS DONE ON THE FILE, 
BEGIN ALPHA ST» SIOs MFIQs FID» OD» My Y3 


INTEGER MED», REEL* CYC3 
IF SP < MKS THEN GO TO FCTFAILS 


IF SP = MKS < 3 THEN 


IF NOT. NULLARGS¢3*SP4#MKS) THEN GO TO FCTFAIL3 
INDIRECTOCMKS)3. 


‘$ST & PSTEMKS]3. 


IF VALULST].I0USE = 0 THEN GO TO FCTFAIL3 
S10 + rorsTi3 


% GET MFIDS 


AA © PSTCMKS4i33 
AB © VALULAAI3 


IF AB,S = O THEN MFID © =4 ELSE 


REGIN MVE7sBLANKSsloMFIDe1 23 
MVCMINCG7sAB,SI#F IRSTCHARCAB) »MFID, 193 


ENDS 


MEIN e. MF IOS 


% GET Fiot | 

AA “PSTIMKS4293 

AB ¢ VALUCAAIT3 

IF ABeS =. 0 THEN FID © #4 FLSE 
BEGIN MVC7*BLANKSo lo FIDe 13 
“MVCMING7T SAB, SIF IRSTCHARCABI OF ID+1 93 
ENDS | 


FID # FIO} 


% GET MEDIA prérrs . 

IF SP"MKSS3 OR VALTABLECAAePSTIMKS433),STR#AAsSTW)],5 & 0 
THEN MED ¢ #1 ELSE 
‘Tr NOT NUMVALCAAsMED) THEN GO TO FCTFAIL 

MED « MEN3 

% GET DATE: 

IF SP=MKS $ 4 OR VALTABLECAASPSTIMKS44])eSTReAAeSTW1eS 8 0 
THEN 0 © =1 ELSE 


‘ 


{ 
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37000000 


37010000 
37020000 


37030000 
37040000 


37050000 


37060000. 


37070000 
37080000 


_. 37090000. 
37100000 


37110000 
37120000 


371300000 


37140000 


37180000. 
37460000 


37170000 


37180000 


37190000 
37200000 


37210000 
“37220000 


37230000 


-37240000_ 


37250000 
37260000 


37270000 


37280000 
37290000 


37300000 


37310000 
37320000 
37330000 


eer 
37350000 


37360000 


37370000 


37380000 
37390000 


37400000. 
97410000. 
37420000. 


37430000 
37440000 


BEGIN AA «+ PST(MKS+493 
AB ¢ VALUCAA]3 
If AB,S = 0 THEN D © =1 ELSE 
Ir AB.S # 8 THEN 
MVCSaFIRSTCHARCAB)sDs3) ELSE 
If AB,S = 8 THEN 
"BEGIN MVCBsFIRSTCHARCAB) £05093 
IF CHARCD*0) > 1 THEN GO TO FCTFAILS 
IF 06€1298) ¢ "/" OR 0.030367 # 9/7" THEN GO TO FCTFAIL3 
Y « 0.£3681213 
Me O.f195] « 10 + 0.068613 
IF M > 12 THEN GO TO FCTFAILS 
D # 0.01896) x 10 + pel2sto)) 
IF D > 31 THEN GO TO FCTFAIL3 
FOR I ¢ 1 STEP 1 UNTIL M DO D ¢ D+ MONTHSCII3 
D + ENTIERCD MOD 410) & YC18#36312) & 
ENTIERCD DIV 100)£30%4256) ea 
ENTIERCCD MOD 100) DIV 102£3684296)3 
ENDS. 
END3 
% FIND REEL NUMBER: 
IF CIF SP=MKSS$5 THEN T ELSE VALTABLE CAAGPSTEMKS453) eSTR#AA,STWI14S20) 
THEN REEL # "1 ELSE 
TF NOT NUMVALCAASREEL) THEN GO TO FCTFAILS 
% FIND CYCLE NUMBER? 


“IF CYF SP#"MKSS6 THEN T ELSE VALTABLE CAAGPSTEMKS4#6] )eSTR*AASTNIeS=0) 


THEN CYC « 1 
ELSE IF NOT NUMVALCAASCYC) THEN GO TO COTEALLS 


% FOUND PARAMETERS; FILL FILE! 


% NOTE THAT A FILL ELEMENT OF =1 MEANS "NO CHANGE, 

FILL TOFILECSIOeFILNO] WITH MFIDs Flo» REEL» D> CYCe MEDS 
GO To SUCCEEDS 

END FILL3 


% 142 »GECA,B) SUCCEEDS ae A AND B ARE NUMERIC AND A 2 Be 


BEGIN SEGMENT 
IF SP = MKS < 2 THEN 
te NOT NULLARGSC2*SP4#mMKS) THEN GO TO FCTFAIL3 


TF NUMVALCPSTOMKSJsAA) AND NUMVALCPSTEMKS41)2AB) 


THEN GO TO IF AA 2 AB THEN SUCCEED ELSE FCTFAILS 
IF PRINTMESSAGES THEN 

BEGIN MESSAGEAICOs"GE*s INSTNODS 

MESSAGETTAICOs"GE"» INSTNO) 3 

ENDS 


G0 TO FCTFAILS | 


END. LGE3 


37450000 % 153 eGTCASB) 


37460000. 


37470000 
37490000 


37500000 


37510000 __ 
~ 37520000 
37530000 

37540000 


37550000 
37560000 


% e6TCAsB) SUCCEEDS IFF A AND B ARE BOTH NUMERIC AND A > 8, 


ee SEGMENT 


Sp = MKS < 2 THEN 
fe NOT NULLARGS¢(2"SP4#MKS) THEN GO TO FCTFAIL3 

TF NUMVALCPSTEMKS3]s4A) AND NUMVALCPSTOMKS+135AB) 
‘TMEN GO TO IF AA > AB THEN SUCCEED ELSE FCTFAILS 


IF RRINTMESSAGES THEN 


BEGIN MESSAGEAICOs"GT"s INSTNO)S 
— MESSAGETTALCO# "GT" INSTNO) 3 


ENDS 
GO TO FCTFAILS 


Parma, fans 


eeeesveeeveeeeweeeeeeeee 


1 


i 
[ 
i 
| 


i 


q 


37570000 


END. LGT3 


37580000 % 16% .LECA,B) 


37590000 


37600000 
37610000 


37620000 


37630000 


37640000 
37650000 


37660000. 


37670000 


37680000 © 
37690000 © 


37700000 
37710000 


37720000 | 


37730000 


37780000 
_ 37750000 


37760000 
37770000 


37780000 


37790000 
37800000 


_..37810000 


37820000 
37830000 


_ 37840000 
37850000 __ 
37860000 
37870000 | 


37880000 
37890000 


379900000 | 


37910000 


37920000 
37930000 


37940000 
37950000 


....97960000 | 
37970000 


37980000 


37990000 


38000000 
38010000 


38020000 


38030000 


38080000 
98080000. 
38060000 


38070000 
38080000. 
38090000 
38100000 
38110000 


~ 38120000 


38130000 


% .LECAsB) SUCCEEDS IFF A AND B ARE BOTH NUMERIC AND A §$ B, 


BEGIN SEGMENT 


IF SP = MKS « 2 THEN IF NOT NULLARGS(C2=SP4+MKS) THEN GO TO FCTFAILS 
IF NUMVALCPSTEMKS]2AA) AND NUMVALCPSTUEMKS+41)2AB) 
THEN GO TO IF AA S$ AB THEN SUCCEED ELSE FCTFAIL 
IF PRINTMESSAGES THEN 
BEGIN MESSAGEAICOs"LE"s INSTNQO)3 
MESSAGETTAICOs"LE"s INSTNO)3 
ENDS 
GO To FOCTFAILS 


END LLEA 
% 47% LEVELC) 


% LEVELC) RETURNS THE LEVEL AT WHICH THE PROGRAM IS CURRENTLY 


XM OPERATING, THE LEVEL IS DEFINED AS FOLLOWS! IT IS 1 AT THE 


% START OF THE PROGRAMS IT INCREASES BY 1 WITH EACH CALL ON A 


® PROGRAMMER@*BEFINED FUNCTIONS AND IT DECREASES BY 1 AT EACH 
-% RETURN COR FRETURN), 


BEGIN SEGMENT 

RETURNVAL © TEMPVALCLEVEL )3 
GO To SUCCEEDs 

ENDS & LEVELO) 


% 18% LoOKCSsF) 
-&% LOakK¢SsF) TURNS THE STRING $S INTO A NON®READINT 1/0 STRING FOR 


% THe INPUT FILE BELONGING TO THE STRING $F. IF $F IS NOT AN INPUT 
% STRING CNOT DATACOMM)»s LOOK FCTFAILS, 


BEGIN SEGMENT 


If SP = MKS < 2 THEN GO TO FCTFAILS 


INDIRECTOCMKS)3 


AA © PSTEMKS 13 

INDIRECTOCMKS413 

AB + PSTEMKS41 73 

AC * IOTABLEAB,STRsAB,STWI3 

IF NOT BOOLEANCACseINUSE) OR ACe FILNOsO THEN GO TO Poy ATL? 
VALUFAA],IOQUSE © 23 


TOtAAL «0 8 2 CIOUSE &8 2 CIOTYPE & AC TFILNOGS 


GO To SUCCEED 
END3 


& 1h. aL TCAs B) 


% sLTCAsB) SUCCEEDS IFF A AND B ARE BOTH NUMERIC AND A < B, 
BEGIN SEGMENT 


IF SPeMKS < 2 THEN IF NOT NULLARGSC2=SP4MKS) THEN GO TO FCTFAILS 
IF NUMVALCPSTEMKS],AA) AND NUMVALCPSTEMKS4115AB) 


THEN GO TO IF AA < AB THEN SUCCEED ELSE FCTFAILS 


LF _PRINTMESSAGES THEN 


- BEGIN MESSAGEAICOs"LT"sINSTNO)3 
eee Cer AEE Ge NEAT #ANST NO)! 


GO To FCTFAIL3 


ENO LT3 


x 20% MODECV) 


% MODECV) SETS SYSTEM VARIABLE» DEPENDING ON THE CONTENTS OF V, 
% THE VALUES CURRENTLY RECOGNIZED FOR Vv ARE? 


% “DUMP EXECUTE DUMPC) AT END#OF JOB, 
z "ROUNDY ROUND QUOTIENTS OF DIVISIONS (STANDARD), 
% "INTEGER" OYVISION FCTFAILS Ip REMAINDER # Oe 


Moore Busieses Sarma. fut. < BE) 


38140000 


38150000 
38160000 
38170000 
38180000 
38190000 
38200000. 
38210000 
38220000 


38230000 
38240000 
38250000 
38260000 


38270000 
38280000 


(38290000 


38300000 
38310000 


38320000 


38330000 


38340000 
..38350000 


38360000 
38370000 
38380000 


— 38390000, 


38400000 
38410000 


. 38420000 


38430000 
38440000 


~ 36450000 


38460000 
38470000, 


38480000 | 


36490000 
38500000 
38510000 
38520000 


_ 38530000 


38540000 
38580000 


38860000. 


38570000 
38580000 


38590000 
38600000 


38610000. 
38620000 


38630000 
38640000 


38650000 


38660000 


. 38670000 
38680000 


38690000 
38700000 


BEGIN 


IF SP 


"TRUNCATION" TRUNCATE QUOTIENTS, 

"ANCHOR" ALL SCANS ARE ANCHORED UNLESS UNANCH() IS USED, 
"UNANCH® ALL SCANS ARE UNANCHOREDs UNLESS ANCHOR() IS USED 
"UNANCHOR™ SAME AS "UNANCH™ CSTANDARD). 

"INFORM" TURN ON SYSTEM DEBUGGING OUTPUT, 

"STLENCE™ TURN OFF DEBUGGING OUTPUT (STANDARO), 

ALPHA ARRAY WORDLO!173 

S$ MKS THEN GO TO FCTFAIL3 


AA & PSTEMKS]3 


‘AB © VALULCAAY3 


IF €11¢AB.S) < 3 OR TL > 10 THEN GO TO FCTFAILS 
MVCI¢ oF IRSTCHARCAB) sWORDE*150)3 
CASE 11 OF 

BEGIN 333 % NONE OF SIZE OF ti» OR 2, 


IF 


EQC3+WORDE*1 20s WORDS(13145) THEN 
BEGIN DEBUGGING « FALSE3 % RUN 
SETLIMITFLAG3 


Re ia SUCCEEDS 


IF 


IF 


IF 


EN 
EQUAL C4»WORDE#)*0+NORDSELI¢3) THEN 


BEGIN DMPSTR « TRUE3S % DUMP 
GO TO SUCCEED; 

END3 

EQUAL CS#WORDE *#}20sWORDSLO)s7) THEN 
BEGIN DIVIDEMODE © 03 % ROUND 
GO TO SUCCEED: 

END ELSE 

EQCSeWORDE*I,0-WORDSC13]20) THEN 
BEGIN DEBUGGING « TRUE; % DEBUG 
SETLIMITFLAGS 


GO TO SUCCEED: 
ENDS 
EQUAL ¢6sWORDE*]*02WORDS[OJs2) THEN 


BEGIN IF SP = MKS > 1 THEN % ANCHOR 


BEGIN IF NOT NUMVALCPSTEMKS413-12) OR 12 < 0 OR 12 > 8191 
THEN GO TO FCTFAILS 
-ANCHORSIZE © 123 
ENDS 
ANCHORMODE ¢ 33 


60 To SUCCEED; 


IF 


END ELSE 


EQUALCO*sWORDC#]20sWORDSEO}20) THEN 
BEGIN ANCHORMODE « 23 % UNANCH 


ANCHORSIZE ¢ O3 
GO To SUCCEED; 
END ELSE 


EQUALC6sWORDE*]20.WORDS(C4126) THEN | 
“BEGIN PRINTMESSAGES * TRUES. & INFORM 
“INFORM © SYSTEMDEBUGGINGS. 


60 TO SUCCEED; 


ENDS 

EQUAL C7*#WORDE #120, WORDSL2I00) THEN 
BEGIN DIVIDEMODE « 23 % INTEGER 
GO TO SUCCEED: 

END ELSE 

EQUAL (7+NORDE¥}» O+WORDSESI 943 THEN 


BEGIN % SILENCE 


: i H Loe : : : i i : aa i } j 28 oh 


; Sacuic flusiness “Tocms. bac. ey ye.8e 
: t 
H : H : H : EPEEE AY PEEke Boneh | ae ad j cee : [Lexa 1 : pee 
H : i S L $08 ae : Le Sea ce a ‘i E : Sey pte : : dd : : 


38710000 


386720000 
38730000 
38740000 


38750000 
38760000 . 


38770000 


— 38780000 


38790000 


38840000 
38850000 


38860000 


38870000 


38880000. 
38890000 


38920000. 0... 


38900000 
38910000 


38930000 


38940000 


38950000. 
38960000 


38970000 


38980000 
38990000. 
39000000 


39010000 | 


39020000 
39030000 


39040000 - 


39050000 


39060000 


39070000, 
39080000 


39090000 


39130000. 


39140000 
39150000 


..39160000 


39170000 


39180000 
39190000 


39200000 
39210000 


39230000 


-39240000 


39280000 


~ 39260000 


39270000 


39100000 
39110000 — 
39120000 


IF 


Ir 


388000000 
38810000 

38820000. 

_ 38830000. 


PRINTMESSAGES « INFORM ¢ FALSE3 

GO TO SUCCEEDS 

END ELSE 

EQC7sWORDE#1]s0+NORDS[14140) THEN 

BEGIN ERRDUMP « TRUES % ERRDUMP 
GO TO SUCCEEDS 

ENDS 

EQUAL C8*WORDC#I]20.WORDSLOJ»0) THEN 

BEGIN ANCHORMODE « 23 % UNANCHOR 
ANCHORSIZE ¢ 03 


GO TO SUCCEEDS 
END ELSE 
oe 


egcaceanots)s0,Wonver tale?) THEN % TRUNCATEs FILE 
BEGIN IF SP < MKS4#2 THEN GO TO FCTFAILS 
INDIRECTCMKS+2)3 


_ AA © PSTEMKS44 73 


AB * IOCAAJ3 


oF BOOLEANCAB.OUTUSE) THEN IF ABsFILNO # 0 THEN 


IF 


BEGIN IQCAAJ,OVFL ¢« 03 
GO TO SUCCEED; 
END3 
GO TO FCTFAILS 
END ELSE 
EQCB8sWOROC#1,02WORDSC15]*7) THEN % OVERT LEE! FILE 


BEGIN IF SP < MKS#2 THEN GO TO FCTFAIL3 


INDIRECTCMKS41)3 
AA © PSTEMKS41]3 


AB ¢ TOCAAI3 


IF BOOLEANCAB,OUTUSE) THEN IF ABsFILNG # 0 THEN 
BEGIN IOLAAJ.OVFL © 13 
GO TO SUCCEED; 
END3 

GO TO PCTFAIL3 


ENDS. : 


% NONE WITH 9 CHARS 


EQUAL C10»WORDI*#]20sWORDS[2197) THEN 


BEGIN DIVIDEMODE « 13 
GO TO SUCCEEDS 
ENN} 


% TRUNCATION 


END; 


END? . 


weit 


GO TO FCTFAILS 


% MODECV) 


-eNECASB) 


% ,»NECAsB) SUCCEEDS IFF A AND B ARE BOTH NUMERIC AND A # By 
BEGIN SEGMENT 
SP"MKS < 2 THEN IF NOT NULLARGSC2SP4+MKS) THEN GO TO EC TEAL? 


IF. 
IF 


39220000. 


60 


TF. 


NUMVALCPSTEMKS]»eAA). AND NUMVALCPSTEMKS4+1]»AB) 
THEN GO TO IF AA # AB THEN SUCCEED ELSE POTFAILS 
PRINTMESSAGES THEN 

BEGIN MESSAGEAICOs*NE*s INSTNODS 
MESSAGETTAICO*"NE** INSTNG D3 

END3 

To FCTFAIL3 


END LNE3 

eNUMCA) 

% .NUMCA) SUCCEEDS IF A IS NUMERICS THAT IS» IF A IS NULL» OR 
% A TS NOT NULL AND THE FIRST CHAR OF A IS “#" OR A DIGIT AND 


% 221 


2 Susinass Fores, inc. ey 


® @ 


x } ae : 


is eae 
j : Shoore 


39280000 


39290000 
39300000 


_ 39310000 
39320000. 


39330000 


39340000 


39350000 
39360000 


39370000. 
39380000 
39390000 
39400000. 
39410000 


39420000 
39430000 


39440000 


39450000 


39460000 


39470000 
39480000 


39490000 
39500000 
39510000 | 

39520000 | 


39330000 
39540000 


39600000 
39610000 


39620000. 


39630000 


39640000 
39650000 


39660000 
39670000 


39730000 


39770000 
39780000 


39790000 


 geeoo00 |. | 
39810000 — 
39820000 


39830000 
39840000 


x 


BE 
IF 


60. 


EN 


THE OTHER Cuan OF A ARE ALL DIGITS» 
GIN SEGMEN 
MKS = SP THEN GQ TO SUCCEED; 


To IF. NUMVALCPSTEMKS Js AA) THEN SUCCEED BuEE FCTFAILS 
D LNUM3 


% 238 OPSYNCS1sS29T) 


{ 


+ abe a haebaore clabetel 


..39550000 
39560000 
39570000 
39580000 
39590000 


39680000 
39690000 
39700000 
39710000 
39720000 


39740000 
99750000 


& 


BE 


Er 


AA 
AA 


IF 


OPSYNCS1eS20T) CAUSES THE ALTERING OF THE SYMBOL TABLE ENTRY 
DESCRIBED BY $1 AND T3 THE QUANTITY NAMED BY Si IS SET TO BE 
IDENTICAL TO THE QUANTITY NAMED BY S2. THE TYPES OF THE QUANTITIES 


ARE DETERMINED BY T AS FOLLOWS: 


T TS NULL? $1 AND S2 NAME FUNCTIONS, 
‘T STARTS WITH "F": S1 AND S2 NAME FUNCTIONS s 
T STARTS WITH "S": $1 AND S2 NAME STRINGS, 
T STARTS WITH "Lt S1 AND S2 NAME LABELS, 
NOT ONLY THE VALUE OF THE QUANTITY NAMED BY S2 18 COPIEDs BUT 
ALSO ANY 1/0 USE IT MAY HAVE, THUSs OPSYNC"A"S"Bs"S") CREATES 


A STRING NAMED “A™ CIF ONE DOES NOT ALREADY EXIST)» AND ASSIGNS 
TO A THE VALUE AND 1/0 USE OF By. OPSYNC"F's "ARGH" S"F") CREATES 
hk FUNCTION NAMED "FF", WHICH IS IDENTICAL TO THE FUNCTION ARGH. 


ANY FORMER FUNCTION NAMED "F" 7S LOST, SIMILARLY» OPSYNC"L1i%s 
s"L2%e"L") CREATES A LABEL NAMED Lis WHICH IS THE SAME STATEMENT 


AS. L2e ANY TRANSFER TO Li WILL THEN RESULT IN A TRANSFER TO 


A STATEMENT THAT IS THE SAME AS L2, 

GIN ALPHA Ie TYPES 

SP*MKS <3 THEN IF NOT NULLARGSC3=SP4MKS) THEN GO TO FCTFAIL3 
¢ PSTIEMKS+42]3 

¢ VALULAAY3 

AAsS = 0 THEN TYPE « "FCT" ELSE 

BEGIN AA © CHARCFIRSTCHARCAA) )3 


TYPE @ IF AA 3 "S" THEN "SYMBY ELSE = "SS" STRING NAME 


IF AA 2 "FE" THEN "FCT" ELSE % "Fe FUNCTION 
IF AA = "L" THEN “INST ELSE 03 * PL" LABEL 
If TYPE = 0 THEN GO TO FCTFAIL3 


END? 


be 

MO 
VA 
10 
GO 
EN 


« PSTEMKS]3 
* VALULAA]S 

© ENTERSTCABaSsDATALAB, Ret] 2ABgCHs TYPE DS 
¢ PSTMKS + 173 

# VALUCAA3 

SE Aes OA TE Coes att eRy Tere? 
@ VALUEACY 

+ STRINGCAA.S#AB)3 

VECI. SoFIRSTCHARCAA) sFIRSTCHARCID)3 
LUrAB1 © r & AACL#121613 

CAB] « Toracy} 

‘TO SUCCEED; — 

D LOPSYN} 


% 24! PAGECN) 


49760000 


% 
% 


% 


BE 


OTe 


PAGECN) EJECTS. THE LINE PRINTER FILE PRINT TO CHANNEL Ne IF N <0 
OR N > tis PAGE FAILS, IF N= O» CHANNEL 1 ¢€ THE TOP OF THE NEXT 
PAGE) YS USED. 

GIN SEGMENT 

SP > MKS#1 THEN  &% OUTPUT FILE AS 2ND PARAMETER 

BFGIN INDIRECTCMKS41)3 


ARB © PSTEMKS41)3 


IF VALULAB1,IOQUSE = 0 THEN GO TO FCTFAIL ELSE 
IF I2¢YOCAB),FILNO=0 THEN GO TO FCTFAIL3 


i j i Z : > 
: H i : : se oh : ee on : : . i ‘ : i : : 


e 


i i : ‘ : 


Phra: Bosdness Saens, dec ay 
i : ny pitt weyers t : hte : tht ‘ ees nett oa : 
: : j fice eters | 2 i i i i 4 ! ¢ i 
j ‘ t gat ! E : : : : 2 5 : 


39850000 


39860000 
39870000 


39880000 


39890000 
39900000 
39940000 
39920000 
39930000 


39940000. 


39950000 
39960000 


- 39970000 


39980000 
39990000 


_ 40000000 


40010000 
40020000 


40030000 


40040000 
40050000 


40060000 | 
40070000 
40080000 

40090000. 


40100000 
40110000 


40120000 - 
40130000. 
0140000 © 

40150000 | 


40160000 
40170000 


40180000 | 
40190000. 

40200000 
40210000 


40220000 
40230000 
40240000 
40250000 


40260000 
69270000 


40280000 
40290000 


_. 40300000. 
40310000. 
~ 80320000 


40340000 
40350000 


40360000 


40370000 
40380000 


_ 40390000 


40400000 
40410000 


END ELSE 12 «© 33 % ASSUME PRINT.- 
IF Sp = MKS THEN Ii ¢ 41 ELSE 
BEGIN AA « PSTUMKS]3 
IF NOT NUMVALCAAsT1) OR IT1<0 OR Tipii THEN GO TO FCTFAILS 
Ir Ti = O THEN f1 © 43 
END3 
RECORDEI2) « 1143 
GO To SUCCEFD3 
END LPAGES 


* 25t PoPcs). 
% POPCS) POPS THE VARIABLE Se"I. Eos THE TOP VALUE ON THE PUSH*DOWN 


% STACK OF § IS REMOVED. IF S$ IN NOT A NAMED STRING OR IF S CANT 


& BE POPPED CONLY ONE VALUE IN ITS STACK)» POP FAILS. IF S IS AN 


% OUTPUT STRINGs OUTPUT OCCURS, 
BEGIN SEGMENT 


IF SP $ MKS THEN GO TO FCTFAIL3 


IF NOT PNAMECMKS] THEN GO TO FCTFAILS 
GO To IF POPCAAPSTEMKS}) 
“THEN TF BOOLEANC(CVALUCAA].OUTUSE) 
THEN TF SNBLOUTCAA) 
THEN SUCCEED 
ELSE FCTEAIL 
ELSE SUCCEED. 
ELSE FCTFAILS 
END LPOPs 


% 26% PUSH(S*V) 


® PUSH(S*V) PUSHES THE VALUE OF v ONTO THE TOP OF THE PUSH*DOWN 
% STACK OF THE VARIABLE $. IF POP(S) IS THEN EXECUTEDs S$ RETURNS 


& TO ITS FORMER VALUEs PUSH FAILS If S IS NOT A NAMED STRING» OR 


% YF THE SYMBOL TABLE IS FULL CA FATAL ERROR). IF S IS AN OUTPUT 


& STRING. OUTPUT OCCURS, 


BEGIN SEGMENT 
IF SP ¢$ MKS THEN GO TO FCTFAILS 
IF NOT PNAMEECMKS) THEN GO TO FCTFAIL3 


GO TO IF PUSHCAA®PSTEIMKS]s IF SP"MKS ¢ 1 THEN O ELSE PSTEMKS+1)) 


THEN TF SCOLEANCVALULAA).OUTUSE) 
THEN TF SNBLOUTCAA) 
THEN SUCGEED 
ELSE FCTFAIL 
ELSE SUCCEED 
ELSE FCTRAILS 
END LPUSH3 


% 273 JREMDROASB) 


% sREMDRCAB) RETURNS THE QUOTIENT OF A / 8, IF EITHER A OR B 
% 1S NONNUMFRICs OR B & O» »REMOR FAILS. 
BEGIN SEGMENT 


YF Sp*MKS < 2 THEN GO To FCTFAIL, 


RA & PSTEMKS]} 
Abe PSTCMKSe113— 


IF NOTCNUMVALCAAAA) AND wUMVALCABeAQD) THEN GO TO FOTFAILS 
IF AB = O THEN GO TO FCTFAIL; 


-RETURNVAL © TEMPVALCAA = CAA DIV AB) x ABD} 


GO To SUCCEED} 
END LREMDR3 


% 28% REWINDCF) 


% REWINDCF) CAUSES THE FILE ASSOCIATED WITH $F TQ BE REWOUND, 
% IF $F ISNT AN 1/0 STRINGs REWIND FAILS. 


PPE 


a . ° wos @ 


fen, 


Poogea Bushiega Torn 


f 


40420000 


40430000 
40440000 
40450000 


40460000 
40470000. 


40480000 


404890000 


40500000 
40510000 


40520000 = 


40530000 


40540000 _ 
40550000 


40360000 
40570000 


40580000 
40590000 


40600000 
40610000 
40620000 
40630000 


40640000 | 


40650000 
40660000. 
40670000 
40680000 
40690000 
40700000 


“40710000 


40720000 
40730000 
40740000 


_ 40750000 
- 40760000 


40770000 
40780000 


~~ 40790000. 


40800000 


40810000 | 
40820000 

40830000 | 

— g0Bgo000 


40850000 
40860000 


49870000 

" yoe80600 
40890000 

(40900000 _ 


40910000 
40920000 
40930000 


40940000 
490980000 


40960000 


Paoepooae 


40980000 


BEGIN SEGMENT 

IF SP < MKS THEN GO TO FCTFAILS 
INDIRECTCMKS)3 

AB © TOLPSTE&MKS]]3 


IF AReIQUSE = 0 QR ABeIOTYPE 4 4 THEN GO TO FCTFAIL3 


REWINDCIOFILECABsFILNOJ)3 
G0 To SUCCEEDS 
END INTRINSIC FUNCTION REWIND 


%29% RULESCL) 


% RULESCL) RETURNS THE NUMBER OF RULES EXECUTED AT LEVEL L S1E 
% THE LAST TIME LEVEL L WAS REACHED. IF L = 0 COR IS NULL)» THE 
% TOTAL FOR THE PROGRAM IS RETURNED. IF L $ LEVELC)s THE CURRENT 
% RULE BEING EXECUTED 1S INCLUDED IN THE TOTAL. RULES WILL FAIL IF 
%L <0 OR L > MAXLEVEL. NOTE THAT IF RULESCL) = "OM, THEN THE 
LEVEL L HAS NEVER BEEN REACHED, 
BEGIN SEGMENT 
AA # IF SP > MKS THEN PSTCMKS] ELSE O83 
IF AA 5.0 
THEN TL ¢ 0 
ELSE IF NOT NUMVALCAAsI4) THEN GO TO FCTFAIL3 
IF 14 < 0 THEN GO TO FCTFAIL3 
RETURNVAL © TEMPVALCIF I4 > MAXLEVEL THEN O ELSE RULESE£II)3 


ae 


60 To SUCCEEDS 


END LRULES3 


% 30% SrZEC¢S). 


% SIZECS) RETURNS THE NUMBER OF CHARACTERS IN S. 
BEGIN 


 RETURNVAL © TEMPVALCIF SP ¢ MKS THEN O ELSE VALUCPSTEMKS]],S)3 


6C.To SUCCEED} 
END LSIZE3 


% 318 SPACECFan) SETS A COUNTER FOR THe I/O FILE BELONGING TO $F» 


SQ THAT ANY FURTHER I/O OPERATIONS ON THIS FILE WILL BE 
PRECEDEO BY A SKIPPING OF N RECORDS. SPACE FAILS IN THE 
FOLLOWING SITUATIONS! 

N NON@NUMERIC, 

$F NOT AN I70 STRING. 

$F A DATACOMM 1/0 STRING, 

NOTE THAT FOR MOST FILES» N < 0 IS MEANINGLESS, ALSOe# N = 0 
FOR LINE PRINTER FILES CAUSES OVERPRINTING, 


ot 98 ne ae ae 8 20 2+ 


BEGIN SEGMENT. 


IF SP < MKS#1 THEN IF NOT NULLARGSC2) THEN GO TO FCTFAIL2 


-INDIRECTOMKS)3. 
AB «© PSTEMKS33 


AB © TOCABI3 
IF ABeIOUSE = 0 OR ABeFILNO = 0 THEN Go TO FCTFAILS 
IF NOT NUMVALCPSTOMKS+1), ue THEN GO TO FCTFAILS 


TOSPACECABsFILNO] + 113 
(GO To SUCCEED} 

END LSPACES) 

% 32% TrMECN) 


BEGIN ALPHA ARRAY NUMCO?193 
STREAM PROCEDURE TEMPS(THsTMsTSoW)3 

VALUE THe TMsTS2. 

BEGIN DI « Wi OS « B LIT " "3 
St ¢ LOC THS DS « 2 DEC3 DS # 4 LIT "EN 
St ¢ LOC TM3 DS & 2 DECS DS © 1 LIT M85 
St « Loc TSs OS + 2 DEG3 


i | i : : : poe ee gee i : : i 
ioe i feces 4 5 reece! : : : 7 : : ; : : 


e 


POS Gultanss Pemns, Pye. bs sige 
Bees ; Hq jojo eigetiatiae i : : Bnet : ‘ ae! ‘ 4 ? x 3 ree 
: ‘ i } Ee i ‘ i : : H i i i fa 
i nee : i : i i ce i t : re ah : ‘ 
a bg i i ‘. * 4 t i :. : 


40990000 


41000000 
41010000 


_ 41020000 | 
41030000. 


41040000 


41050000 


41060000 
41070000 


41080000 
41090000. 
41100000 — 
41110000. 


41120000 
41130000 


41140000 
_ 41150000 

41160000 
—ALL70000 


41180000 
41190000 


41290000. 


44210000 
41220000 


41230000 


41240000 
41250000 


44260000. 


41270000 
41280000 


41290000 


41300000 
41310000 
41320000 
41330000 
41340000 


41350000 — 


41360000 
41370000 


41380000 


41390000 
41400000 


44410000 


41420000 
41430000 


41440000 

41450000. 

41460000 
41670000. 


41480000 
44490000 


41500000 | 


41510000 
41520000 


41330000 


413540000 
41550000 


t de ae 


END TEMPS3 
INTEGER THe TMeTS3 
IF SP = MKS THEN 
TF NOT NULLARGSCL) THEN GO TO FCTFAILS 
AB «© PSTECMKS)3 
IF NOT NUMVALCABeAA) THEN GO TO FCTFAIL3 
IF AA < 0 OR AA > 4&4 THEN GO TO FCTFAIL3 
IF AA = 0 THEN 
BEGIN. 
AA + —TIMECL) / 603 
TH © ENTIERCTEMP/3600)3 | 
TM oe ENTIERCCTEMP@THx3600)/60)3 
‘TS # AA = THX3600 * TMx603 
TEMPSCTHs TMs TS#NUME #3 D3 
EnD _ELSE 


IF AA = 4 THEN 


BEGIN CLEARCNUM,2)3 
Ti « TIME(S) | 
MvCLe Tis FeNUMO*1515)3 
END ELSE. 
BEGIN RETURNVAL © TEMPVALCTIMECAA))3 
60 TO SUCCEED) 
~ ENO 
AA © 16 = SKIPCHAR(" ,NUME T2035. 
RETURNVAL © TEMPCELL3 
AC ¢ STRINGCAAsRETURNVAL 3 
MOVE CAAsNUME #2 ¢167AASFIRSTCHARCAC) 33 


NMALUERETURNVAL] © AC? 


GO To SUCCEEDS 
END LTIMES | 


% 333 TRACES(S19S22S3r eee) TURNS ON TRACING FOR THE STRINGS 


% NAMED BY St» S28 $3 ETC. ALL OUTPUT IS TO THE STANDARD 

% OUTPUT FILE» PRINT. WHENEVER ANY OF THE STRINGS IS ALTERED» 

Z CUTPUT OCCURS GIVING THE STATEMENT NUMBER» THE STRING NAME» AND 
% THE NEW VALUE. 

BEGIN SEGMENT. 


FOR ft ¢ MKS STEP 1 UNTIL SP=1 00 


BEGIN INDIRECTCI)S 

AA « PSTEII3 

VALULAA},.IOUSE ¢ 13 

IOCAA] #¢ 0 & 3 CFILNO & 2 CIOTYPE & 1 CIOUSES 
ENDS 


(60 To SUCCEEDS 
‘END TRACES3. . 
% 34% TRACER CPi sF2sF3ee0e0) TURNS ON TRACING FOR THE FUNCTIONS. 


WHOSE NAMES ARE CONTAINED IN Fis Foe F3s ETCe AFTER THISs 
UNLESS DETACHC) IS USED» EACH CALL OF ANY OF THESE FUNCTIONS 
% WILL PRODUCE OUTPUT ON THE STANDARD OUTPUT FILE» PRINTs GIVING 
% THE INSTRUCTION NUMBER» THE FUNCTION NAME» AND THE VALUES OF 
% ALL THE PARAMETERS, 

BEGIN SEGMENT 

FOR r « MKS STEP 4 UNTIL SP#1 00 

BEGIN AA « PSTEII3 

AB « VALULAAY3 | 

Ac ¢ FNTERSTCAB.S»DATALAB eRe *]eABLCHs"FCT")S 

VALUCACI,IOUSE «+ 33 

IMCAC) ¢€ O & 2 CIOTYPE & 3 CFILNO & 3 CIOUSES 


inc. 


ae a oe or or a | 


were ansacomened ie 


piooré Aysainess co 


41560000 


41570000 
41580000 


41390000 
41600000. 


41610000 


41620000 
41630000 


41640000 


41650000 


41660000 
41670000 


- 44680000 
41690000 


41700000 


41720000 


41730000. 
41740000 
41750000 


41760000 
41770000 


81780000 
41790000 
41800000 | 


41810000 
41820000 


GO 
EN 


& 35h 


? s ’ ry 
END; 
TO IF DEATH THEN FCTFAIL ELSE SUCCEEDS 
QO TRACEFS 


TRACELCLiebL2eb 30500) TURNS ON TRACING FOR THE LABELS WHOSE 


% NAMES ARE CONTAINED IN Lis L2e L30 ETCe AFTER THISs UNLESS 


x 
& 
% 
% 
BE. 
FO 


DETACH() TS USEDs EACH TIME ANY OF THESE LABELS IS ENCOUNTERED, 
QUTPUT ON THE STANDARD OUTPUT FILE» PRINTs WILL OCCURs GIVING 
THE LABEL AND THE NUMBER OF TIMES IS HAS BEEN ENCOUNTERED SO 
FAR DURING THE PROGRAM"S EXECUTION, 

GIN SEGMENT 

Rt ¢ MKS STEP 1 UNTIL SP#1 00 

BEGIN AA « PSTCLI3 

AB © VALUEAAT3 


AC © ENTERSTCAB,S»DATACAB. Rat )sAB, CHs INST") 5 


41710000 


VALULACI],QOUTUSE « 13 
Yotaci © 0 & 2 CIOTYPE &@ 3 CFILNO & 1 CIOUSES 


ENDS 


GO. 
EN 
% 363 
BE 


41830000 


41840000 


41850000 _— 
41860000) 


41870000 
41880000 
41890000 
41920000 


41940000 


41950000 
41960000 | 
41970000. 
(41980000 


41990000 
42000000 


44900000 | 
41910000 


ETea000O 


42010000 


42020000 
42030000 


42050000 
42060000 


42080000 
42090000 


. 42100000 


42110000 
42120000 


42040000... 


42970000 


‘To ULF DEATH THEN FCTFAIL ELSE SUCCEED 

DOTRACELS Coe 

TRIMCS) RETURNS THE VALUE OF S WITH ALL TRAILING BLANKS DELETED, 
GIN STREAM PROCEDURE TRIMCL*INC*STZE)} VALUE INC 

BEGIN LOCAL S5s S6s S7» TEMP} 

LABEL TEST» RETURNS 

$y SIZE3 SI * SI -+ 53 

LOc $53 DI «* DI + 73 DS © 1 CHR; 


a : 
6t « 10C S63 DI «+ DI + 73 OS * 1 CHR; 
€ 


Loc $73 OI « DI + 73 DS © 4 CHR; 
$t¢ Ls SI * SI + INC} 
S5(4C32(S1 ¢ Sl + 32)9)3 
S6C2CS1 « SI * 32))3 
S$] ¢ SI + S73 
TrSTt? St ¢« SI" 43 
tr $C # "* * THEN GO TO RETURN 
TEMP «© SY 
Sl ¢ Loc S73 SI «+ SI + 73 
IF SC = "0" THEN 
BEGIN — 
SI « LOC 863 SI « SI + 73 
IF Sc = “O" THEN 
BEGIN 
$I ¢ Loe S53 St ¢ SI + 73 
IF SC = "O" THEN GO TO RETURNS 
‘TALLY «© S53 TALLY @ TALLY # 633 SS © TALLY3 
ENDS 
TALLY © S63 TALLY « TALLY + 633 $6 * TALLYS 
ENDS 
TALLY ¢ S73 TALLY « TALLY + 633 $7 © TALLY? 
SI¢ TEMPS GO.T0 TEST: 
RETURNS OI « SIZES DI -« DI +53 
SI ¢ toc $53 SI « SI + 73 ps ¢« 1 CHR3 
Sr « ~£OC $63 SI ¢ Sf + 73 OS © 1 CHR} 
SI * ,oe S73 SI ¢« St + 73 DS © 1 CHR3 


END TRIMS. 


IF 


AC 


AA 
AB 


Sp < MKS THEN Go TO SUCCEEDS 
* PSTEMKS)3 

« VALULACTE 

¢ AA.S3 


3 Tae 
‘ . : ee ; : i ssi 
if i : [peceereerias H i : i : rel i eset e H che es SE ‘ g i t 
i : t PES : 5 $ : : Rane : $ i 


- 42130000 


42140000 
42150000 


_ 42160000 | 


42170000 
42180000 


42190000 


42200000 
42210000 


42220000. 


42230000 
42240000 
42250000 
42260000 
42270000 


42280000 | 
42290000 


42300000 


42310000 | 


42320000 
42330000 


_ 42340000 
42350000 


42360000 


42370000 — 


42380000 
42390000 


42400000. 
- 42440000 — 
42420000. 

“42430000 


42440000 
42450000 
42460000 
42470000 


42480000 
424890000 
- 42500000 


42510000 


42520000 | 


42530000 
42540000 


42580000 


42560000 
42570000 


. 42580000 
42590000. 
42600000 
62610000. 


42620000 
42630000 


42640000 


42650000 
42660000 


42670000 


42680000 
42690000 


TRIMCFIRSTCHARCAA)»4AB)3 
AC « TEMPCELL3 
AB © STRINGCABSAC)3 
VALULAC] «© AB3 
MOVE CAB, SsFIRSTCHARCAA) »FIRSTCHAR(AB))3 
RETURNVAL © AC3 
GO To SUCCEED 
END LTRIMS 
2 372 UNANCHO) 
BEGIN PTYPErLO] « 23 
PSIZEEO] « OF 
GO To SUCCEED} 
END UNANCH? - 
% 38! UNEQL (ASB) 
BEGIN SEGMENT 
IF SP=MKS < 2 THEN IF NOT NULLARGSC2eSP+#MKS) THEN GO TO FCTFAILS 
AB © PSTEMKSI3 — 
AC e PSTEMKS41)3 
“AB © VALULABI3 
AC * VALUEACT3 
60 To IF AB.S # AC,S 
THEN SUCCEED 
ELSE IF FQUALCAB.S»FIRSTCHARCAB) »sFIRSTCHARCAC)) 
THEN FCTFAIL 
... ELSE SUCCEEDS 
END LUNEQL3 
% 39% WAITCT) SETS THE WAITING TIME FOR TELETYPE 1/70 TO T SECONDS. 
% IF T IS NON*NUMERIC OR € O» WAITCT) FAILS. 
BEGIN SEGMENT 
RETURNVAL © TEMPVALCWAITTIME/60)3 % RETURN PREVIOUS WAITTIME, 
TF Sp > MKS THEN IF VALUCPSTCMKS]].S > 0 THEN % GET NEW WAITTIME 
BEGIN IF NOT NUMVALCPSTEMKS]2AB) OR AB < 0 THEN GO TO FCTFAILS 
WAITTIME « AB x 603 
END3 
G0 To SUCCEEDS 


ENO WAITS 
% 40! SUSPEND(T) SUSPENDS THE PROGRAM FOR T SECONDS. IF T IS MISSING» 
% AND THERE IS A TELETYPE ATTACHEDse DEBUG IS CALLED». 
BEGIN LABEL NEWINSTS 
TF Sp > MKS THEN 

BEGIN IF NOT NUMVALCPSTEMKSJeAA) THEN GO TO FCTFAIL3 

Ip AA < 0 THEN GO TO FCTFAIL3 

IF AA > 0 THEN 

BEGIN WHENCAA)$ 
60 TO SUCCEED3 
_ END} 

ENO; | 
IF NOT DATACOMF. THEN FINDUSERS3 
IF OATACOMF THEN 

BEGIN SUSPENDREASON(O) « TRUES 

DEBUGCNEWINST)3 

END3 
GO Tn IF DEATH THEN FCTFAIL ELSE SUCCEEDS 
NEWINST? 

INSTFO} « AA & "E"C 308422613 % BUILD GOTO PART 

FLOC + 53 

ENTRY « Of % SINCE INSTC*? HAS BEEN ALTERED, 


@® @eeeeees*s e*# @ @ @ @® @ @ @ @ @® @ @ @4 


_ 42700000 GO TO FCTFAILS % TERMINATE CURRENT INSTRUCTION 
42710000 END SUSPENDS 
42720000 & — STATUSCAsT) RETURNS THE STATUS OF ATTACHED TELETYPESs AS 
42730000 | GIVEN BY As WHICH IS EITHER NULL OR A TELETYPE ADDRESS. I IS THE 


 ERO0000 ore ee 
43250000 % OTHER INSTALLATIONS WILL WANT TO RE*DO THE I.0, PART OF THIS FCT 
432460000 % 


= | 
@ % 
oe @ 
42740000 ; INTEGER IN THE ALGOL STATUSCS*#1) FUNCTION, IF A IS NULLe THE 
e 42750000 % STATUS OF ALL ATTACHED TELETYPES IS RETURNED. ¢ 
7 42760000 % THE FORM OF THE STATUS FOR ONE TELETYPE IS: | 
42770000 % <STATUS> #83 ( <PROJ#> / <USERH> : <TU> / <BA> 3§ <CONDITIONS> ) 
6 42780000 % WHERE <PROJ#>/<USER#> IS THE USER Te Der <TU>/<BA> IS THE ADDRESS € 
a 42790000 = & OF THE TELETYPEs AND <CONDITIONS> 1S A STRING OF 8 O#S OR 1°5 
42800000 % WITH THE FOLLOWING MEANINGS? . 
Cy 42840000 % 1ST = 4 IF UNIT IS READY @ 
42820000 & 2ND # 1 IF UNIT ITS READ READY 
: 42830000 % 3RD © 4 IF UNIT IrS WRITE READY 
“¢ 42840000 % 4TH = 1 IF WRITE IS IN PROGRESS | 
a 42850000 % 5TH = 1 IF BREAK KEY USED DURING LAST QUTPUT | 
; 42860000 % 6TH = 1 IF ABNORMAL CONDITION SENSED 
© 42870000 % 7TH = 1 IF UNIT IS BUSY ¢ 
‘ : 42880000 % 8TH = 1 IF SEEK IN EFFECT ON STATION : 
: 42890000 % WHEN THE STATUS OF ALL TELETYPES IS RETURNED» THE FORM OF 
‘@ 42900000 = & «THe VALUE IS8 8 
é 42910000 % — <STATUS> <STATUS> <STATUS> os, <STATUS> 
: 42920000 % le Eos THERE IS ONE <STATUS> FOR EACH ATTACHED TELETYPE. 
‘@ 42930000 % STATUSC) FAILS IF: e 
42940000 % A TS NOT NULL» AND IS NOT THE ADORESS OF AN ATTACHED TELETYPE 
42950000 % A 1S NULL» AND TO TELETYPES ARE ATTACHED 
e 42960000 BEGIN e 
nn ABR 9000 AL RHA, ARRAY STISSOtaxTTMAX 5 % FOR BUILDING STATUS: STRING : 
sali eat oo £2980000 | INTEGER ARRAY SIZECOSTTMAXe0!333 % HOLDS SIZES oF STATUS NUMBERS : 
} (42990000 INTEGER HIGH» LOWs Ne STYPEs U3 ~@ 
, 43000000 BOOLEAN ALLS 
43040000 % 7 
e 43020000 FINOUSERSS e 
43030000 IF SPs MKS THEN ALL © TRUE ELSE 
43040000 = BEGIN ® FIND UNIT OR UNITS# a 
] 43050000 = AA © ~PSTEMKSI3 e 
43060000  ~—s«TF -VALULAA]sS * 0 THEN ALL © TRUE ELSE 
43070000 BEGIN ALL © FALSE3 % GNLY ONE UNIT. - 
& 43080000 IF UeTTINDEXCAA) < 0 THEN GO TO FCTFAIL3  ) 
43090000 END 7 
- a3100000 . END FINDING UNITS3 | 
e 3410000 ~—saTF_ SP S$ NKS#i THEN STYPE © 0 ELSE  ©@ 
43120000 «TF NOT NUMVALEPSTCMKS#1]sSTYPE) OR STYPE < 0 OR STYPE > 4 
43130000 THEN GO TO FCTFAIL3 
e 43140000 IF NeNUMUSERS#1 < 0 THEN GO TO FCTFAILS @ 
~dizeoee: de” + 13 
43460000 ALL THEN a 
S 43470000 ~ BEGIN LOW © 03 , @ 
: 2 93180000  - HIGH « NS a 
43190000 END ELSE HIGH ¢ Low «© U3 . 
6 43200000 % UPDATE STATUS WORDS IF NECESSARY! . @ 
3210000 IF STYPE > 0 THEN . St ne sl eee 
43220000 FOR I ¢ LOW STEP 1 UNTIL KIGH DO oo 
@ 43230000 | — STATEYY © STATUSCSTATCIUsSTYPE)S e 
& ® 
@ e 


| 


pees 


j 


: oe Apiahy ee 8 3 « Pranks fee, Wed se 
‘ 1 a 4 : ? : ‘es see : ate bo i : 7 eae % 
i i : : i H i ‘ besa (| r 3 at : 
\ 4 : : : i pe i i i ! i i 


i 


43270000 


43280000 
43290000 


43300000 - 


43310000 
43320000 


43330000_ 


43340000 
43350000 


_. 43360000 
43370000 


43380000 
43390000 


- 43400000 


43410000 


. 43420000... 


43430000 
43440000 


43450000 — 


43460000 


. 43470000 
43480000 


43490000 
43500000 


43510000 | 
43520000 


43530000 


43540000 


43550000 


43560000. 
43570000 


43580000 
43590000 


43600000 
43610000. 


43620000 


43630000 


43640000 
43650000 


... 43660000 
43670000 


43680000 


43690000 | 


43700000 
43710000 


_ 43720000. 
43730000 
43790000 

43750000 | 

43760000 


43770000 


43780000 


43790000 
43800000 
43810000 


— 43820000 


43830000 


% WRITE STATUS STRING? 
WRITECSTTSCeleFSTATSHIGH=LOW+1e/FOR I * LOW STEP 1 UNTIL HIGH DO 


CSYZECTsOIeDIGITSCIOCII.C12°181)> % 14D. PART 
IDET]. C19818)+ = PROJ # % 14D. PART 
STZECTst @DIGITSCIDEI1,030%18))s % ITeOe PART 
INCL). C3081)» & USER # % 1eDe PART 


STZELTs2}eDIGITSCSTATEI3e£9241)> 

STATCT14¢984)]» | % TERMINAL UNIT. 

SIZECYe3I@DIGITSCSTATEI}.C1434))> 

STATET]¢C14t4]»  % BUFFER ADDRESS 

LeSTATEI},030813» % READY 

STATE] ,f2481}»  % READ READY 

STATCIJef27ti}»  % WRITE READY 

STATED ].f29t1]#  % WRITE IN PROGRESS 

STATET1¢026¢1]*  % BREAK KEY ON LAST INPUT 
STATCDI,£2381)9 = % ABNORMAL CONDITION SENSED 

STATEY},¢22t1}s  % STATION BUSY 

STATET 16038219193 &% SEEK IN EFFECT 


tf CALCULATE SIZE OF STRING? 


li ¢ 03 
FOR 1 ¢ LOW STEP 1 UNTIL HIGH DO % CALCULATE SIZE OF STRING 
BEGIN It ¢« 11 + 143 & FOR "C/3/8)" & CONDITIONS 
FOR J «© © STEP 1 UNTIL 3 00 
—JL.@ TL + STIZECTeJ33 
END? 
% SET uP. STRING FOR RETURN VALUES 
RETURNVAL * TEMPCELLS 
AA © STRINGCTIsRETURNVAL )3 
IF DEATH THEN GO TO FCTFAIL? 
MOVECTIsSTTSC#] s0sFIRSTCHARCAA) 3 
~VALULRETURNVAL? «© AAS 
Go To SUCCEED 
END STATUS3 


% 42% USERCA) OR USER(C) HAS TWO USESe IF USED WITHOUT PARAMETER, 


% TT RETURNS THE ADDRESS OF THE TELETYPE ON WHICH THE LAST TELETYPE 
% I/0 TOOK PLACEs IF IT HAS A PARAMETERs IT MUST BE THE ADDRESS OF 
% AN ATTACHED TELETYPES FURTHER OUTPUT WILL BE TO THIS TELETYPE» 
¥ AND THE VALUE RETURNED WILL BE Ae 
BEGIN INTEGER TUs BA; 
ALPHA ARRAY ADDREO?193 
FINDUSERS3 
IF NOT DATACOMF THEN GO TO FCTFAIL3 
IF Sp > MKS THEN 

BEGIN 11 « PSTEMKS]3 

Te VALUCI1].$ #4 0 THEN 

BEGIN IF 1 ¢ THENOEX CT 2 < 0 THEN | GO TO FCTFAILS 
USER « Iv 

a ENDS. 

EN iF we : 
12 + STATCUSER], (998973 
WRITECADDRE Ja FTTADDRe L#DIGITSC12eC39%4) 012, C3934)» 
JeDIGITS¢12,0C44t4]) 212,04484))3 
1 + Totoge + WG 
RETURNVAL ¢ TEMPCELL; 
AB & STRINGCTsRETURNVAL 3 
MVCT»ADDRE*120aF I RSTCHARCAB) D3 
VALUPRETURNVAL] «© AB3 


7 Moore desiness Partos, het. si pees 
‘ 2 1 
: H : 


43840000. 


43850000 
43860000 


43870000. 


43880000 


43890000 
43900000 


43910000 
43920000 


43930000 | 


43940000 
43950000 
63960000 


43970000 


43980000 
43990000 
44000000 


44010000 


44020000 


44030000 


44040000 


449080000 


44060000 
44070000 


44080000 


44090000 
44100000 


44110000 


44120000 
44430000 


B44 40000 - 


44150000 
44160000 


64170000 


44180000 
44190000 
44200000 


— 44210000 


44220000 
44230000 


44240000 
44250000. 
44260000 

44270000 


44280000 


44290000. 
44300000 
443140000 
44320000 


44330000 
44340000 
44330000 


—§8360000_ 


44370000 


44380000 


44390000 
44400000 


GO.TO IF DEATH THEN FCTFAIL ELSE SUCCEED; 
END USERS 


% 43% SFEKCU) OO0ES A READ SEEK ON TERMINAL UNIT U, 


BEGIN SEGMENT 

IF Sp < MKS THEN GO TO FCTFAILS 

FINDUSERS? | 

IF I#TTINDEXCPSTOMKS]) < 0 THEN GO TO FCTFAILS 
AA © STATENS 


Sea ee es 
60 To SUCCEEDS 


END SEEKS 
% GA? RELEASECA) ELIMINATES TELETYPE A FROM THE LIST OF USERS. 


BEGIN SEGMENT 


IF SP <$ MKS THEN GO TO FCTFAILS 


IF Te TTINDEXCPSTEMKS]) «< 0 THEN GO TO FCTFAIL3 
RELEASECSTATEII)3 


FINOUSERSS 


G0 To SUCCEED} 


END RELEASES 


% A451 RECORDCFILEsN) SETS THE RECORD POINTER FOR THE NEXT I/O 


% OPFRATION ON THE FILE SFILE* FAILURE OCCURS IFt 
% _N_NON@NUMERIC OR < 0 
% $FTLE NOT AN I/O STRING CNOT TELETYPE) 


BEGIN SEGMENT 


IF SP < MKSe2 THEN IF NOT NULLARGS(2) THEN GO TO FCTFAILS 


IF NOT NUMVALCPSTEMKS413e11) OR 11 < O THEN GO To FCTFAIL3 


INDIRECTCMKS)3 


AA ® PSTEMKSTS 


AB © IOCAAI3. 
IF ABeIOUSE = 0 OR ABeFILNO = 0 THEN GO TO FCTFAILS 


RECORDCABeFILNO] © 113 


GO To SUCCEED; 
END RECORDS 


% 468 TRACECNAMESTYPESFILESFCT) 


G0 TO UNDEFFCT3 


Z A7t ASSIGNCSsV) ASSIGNS THE VALUE OF V TO S. THE VALUE OF Vv IS 


% WIPED QUT» S1E A STRICT TRANSFER OF POINTERS IS THE METHOD 

% USED. LITERALS SHOULD NEVER BE USED AS PARAMETERS TO ASSIGN(), 
BEGIN 

IF SPSMKS OR AA*PSTECMKSI=0 ee GO Ta FCTFAIL: 


IF Sp = MKS#41. THEN 


VALULAAT,LOC © 1 ELSE 
BEGIN 
AB « PSTFMKS4173 
Ac ¢ VALULABIs 
Te@ AGeCH * 2b 
MVC2sAArGeDATALAC, RaleWieteC)3 
WVALULAAY, -Lac +. AC} ee 
VALUCAB].LOC #43 % NECESSARY ‘DUE TO CHECKSYMBTABL 
ENO; 
GO To SUCCEED} 
END ASSIGN} 


® 481 COPYCS#N) PRODUCES N COPIES OF S$, IF N IS NOT 2 Oe COPY FAILS, 


BEGIN SEGMENT _ 

IF SP"MKS < 2 THEN IF NOT NULLARGSC2SP4MKS) THEN GO TO FCTFAILS | 
AA # VALUCPSTEMKSI13 

IF NOT NUMVALCPSTEMKS419,11) OR 11<0 THEN GO TO FCTFAILS 


© 


fay Suhtens iti tt Beats oe i eh 
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44410000. 


44420000 
44430000 


44440000 


44450000 


44460000 
44470000 


44480000 
44490000 


_.. 44500000 


44510000 


(44520000 
- 44530000 — 


44540000 
44550000 


44360000 


44570000 


44580000 | 
44590000 


44600000 
44610000 


44620000 


44630000 
44640000 


44650000 


44660000 
44670000 


44680000 

44690000 
44700000 
84710000 — 


44720000 
44730000 


44740000 


44750000 
44760000 


44770000 


44780000 
44790000 


_ 44800000. 


44810000 
44820000 


44830000 


44840000 
44850000 


44860000 
44870000 
44880000 | 
—-44g90000 


44900000 
44910000 


44920000. 


44930000 
44940000 


44980000 


44960000 
44970000 


RETURNVAL «© TEMPCELL: 
AC © STRINGCIIxXCJ¢AA,S) »RETURNVAL 23 
IF DEATH THEN GO TO FCTFAIL3 
t2 « AC.CHS. 
FOR 1 * 4 STEP 1 UNTIL Ia DO 
BEGIN MOVE CJeFIRSTCHARCAA SDATACAC Re l2eW1912.C)3 
12 ¢« 12 + J3 
ENDS | 
VALUERETURNVAL] © AC3 
GO. TO. SUCCEED} 
END cOPy3 


% 49! SEARCHCFILE) COES A DISK SEARCH FOR SFILE&s IF SFILE IS AN 1/0 


% STRING TO A FILES OTHERWISE SEARCH FAILS. FAILURE ALSO OCCURS 
% TF THE FILE 1S NOT PRESENT, IF IT IS PRESENT» THE VALUE 1S oF 
% THE FOLLOWING FORM: 


% |. <MFID> / <FIp> 3 <SECURITY> & «REC SIZE> : <BLCK SIZE> 3 
% <EQF ADDR> t <QPEN CNT> 

% WHERE THE SECURITY STATUS» KSECURITY>» IS DEFINED BY: 

Z <SPCURITY> its <S> <p> <w> 

% <S> ss= "1" IF USER CAN ALTER SECURITY STATUS 

x <R> tim "1" TF CAN READ 

% <W> gts "1" TF CAN WRITE 

BEGIN 


ALPHA ARRAY STL03613 
INTEGER ARRAY SIZEl1#6)3 
IF SP < MKS THEN 60 TO FCTFAILS. 
INOIRECTCMKS)3 
AA ¢ PSTEMKSI3 
IF VALUCAA). TOUSE#O OR I*IOCAAJsFILNOZO THEN GO TO FOCTFAIL3 
SEARCHCIOFILELCT] »STL#1)3 
IF STEO] < 0 THEN GO TO FCTFAIL 
FOR J © 122 00 
BFGIN I1 « SCANCHARC® ",0,STEJ]21393 
S$rZeful « If If > 7 THEN 7 ELSE 1143 
EnND3 
FOR J ¢ 324 pO STCJ] © STLEUJ] * 8% % CONVERT TO CHARACTERS 
FOR J ¢ 3942596 00 SIZECJ) « ei etre 
WRITE CBUFOUTE* ] »FOKSEARCHs | 
SYZELi2* SIZEC2I» 
STCOL,CASE1LIe STOOD CAGS1IsSSTCOIV.C A781 I» 
FOR J © 3242596 00 CSIZEtdlsS$TLdII93 
MVCSTZECL]e¢STCilelsBUFOUTEC #12023 % <MFID> 


ey BUT MeN eT GA PERUR OH TENE HEELS TREES % <FIO> 


Il « | 
FOR J + 1 STEP 1 UNTIL 6 DO IL © It#SIZELVI3 


RETURNVAL © TEMPCELLS 


AA & STRINGCT1sRETURNVAL 3 
MOVECI1sBUFOUTC*]2O0sFIRSTCHARCAA))3 
VALUCRETURNVAL] © AAd 

60 To SUCCEED) 

END SEARCH 


% 50! .RANFCN) PRODUCES A “RANDOM” NUMBERS 1 $ ,RANFCN) § Ny 


BEGIN DEFINE Ke7557#, Cai} 

IF SP $ MKS THEN GO YO FCTFAIL3 

IF NOT NUMVALCPSTEMKSJe11) OR T1 $ O THEN GO TO FCTFAIL3 

RANDNO « REAL CBOOLEANCRANDNO*RANDNOxK4+C) AND BOOLEAN(33554431))3 
RETURNVAL © TEMPVALCI1xCRANDNO/33554432)40,5)3 


Ban 


Businase Forms, inc. sv 
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44980000 


44990000 
45000000 
45010000 


45020000 | 


45030000 


45040000 
45030000 


45060000 
45070000 


45080000 


45090000 


45100000 | 
45140000 


45120000 


— 451430000 

- 45140000 
45150000 
43160000 


45170000 
45180000 
45190000 


48200000, 
48210000 
45220000 


45230000 
45240000 
45250000 


Peer 
45270000 
45280000 


45290000 
45300000 
45310000 


48320000 


43330000 


45340000 
45350000 


45360000 


AS 370000000. 
45380000 


45390000 


45400000. 


45410000 


45420000 
45430000 


"48as0000 _ 
- 45a50000__ 

45460000 © 
45470000 


45480000 


45490000 
45500000 
45510000 
45520000 
45530000 
43540000 


GC TO SUCCEEDS . 
END RANDOM FUNCTIONS 


% Sit CLEARC) SETS ALL VARIABLES TO NULL» AT THEIR TOP LEVEL ONLY, 


BEGIN ALPHA K3 
INTEGER fT J 
FOR y ¢ O STEP 1 UNTIL SCATTERNO DO 
FOR J © 0 STEP 1 WHILE J < SCATTERSIZE 00 
BEGIN 
K # J &@ I CONCSTRS 
DO IF NAMECK}.TYPE = 0 THEN VALU[K]. Loc + 0 
UNTIL KeNAMELK), LINK = O3 
ENDS 
GO To SUCCEED; 
END CLEAR; 
END FUNCTION CASES3 


Reweaeeeak INTRINSIC FUNCTIONS #a ta tewanw 
b Radi A ihadiadi ah Tedichel dtahiahedisetuRelatelelcRaleieMalehch Releth:ieleieiatel 


GO To UNDEFFCT? 


DEFINEDFCT: % PROGRAM@=DEFINED FUNCTION 


BEGIN 
LABEL TOODEEPs RET? 


BOOLEAN FCTFAILURE3 


ALPHA ARRAY 
— PRESERVELONSe O3STACKSIZE)» 
LvScor7d3 
ALPHA LVs K3 
% IF INFORM THEN INFORMO(5)3 
FCTFAILURE « FALSE? 


MOVEWDS C30, BACKREFLAGs PRESERVE(O2161)3 % INTERPRETER VARIABLES 


MOVEWDS(SPePNAME[*] sPRESERVEL Le #33 


MOVEWDSCSPsPPOINTE* ]sPRESERVEL 20%) )3 


MOVEWDS(SPsPSIZEC*IsPRESERVEL 3941) 3 
MOVEWDSC(SPePTYPEC* J sPRESERVE(4s*3)3 


 MOVEWDSCSP*PSTL* I *PRESERVELSs #33 


MV CJFCTV a Se DATALFCTVeReFCTV WI OFCTVCoLVSE 42093 
% ASSIGN TO TEMPORARY LOCS! 


FOR y « SP « 1 STEP 1 UNTIL MKS DO IF PNAMELI] THEN 


BEGIN 
K « PSTCIIS 
AA © TEMPCELL3 
AB-« STRINGCVALULK], So ARDS 
K © VALUIKI3 
“VALUCAAY -@ ABI 
a ePRENGLOCCKSsFIASTCHARCAR) D3 
PSTCIT © AAS 
EnD3 


% PUSH PARAMS & LOC VARS AND ASSIGN VALUES# 


MVC2eLVSt#l sOaLVve693 


IF NOT PUSH€LV»Q) THEN GO TO FCTFAILS 
IF NOT CHECKOUTUSECLV) THEN FCTFAILURE « TRUE 


K # 23 I ¢ MKS 3 


je soe 2) 
FOR K ¢ 2 STEP 2 UNTIL J DO 


BEGIN | 

MVC2eLVSteleKeLV 0693 

Tr NOT PUSHCLVeIF I<SP THEN PSTCI}] ELSE 0) THEN GO TO FCTFAILS 
IF NOT CHECKOUTUSECLV) THEN FCTFAILURE © TRUES 


i ee ee i t i i : : ‘ E . i : 
: ; ; Ee ! Lene ‘ : : : : Bes ; bale oe : : ; ! 


Meore Sestisesa corms, bel. sy 


eee eee ee 6 
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ee @ @ ®@ 


i : £ tegen ot P . ¥ 
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45550000 
45560000 
45570000 
45580000 
45590000 
45600000 


45610000 


43620000 
45630000 


45640000) 


45650000 


45660000 
43670000 
45680000 


43690000 
43700000 


45710000. 


45720000 


45730000 


45740000 
45750000 


45760000 | 
45770000 | 
45780000 | 


45790000 
45800000 
45810000 


45820000 
45830000 


45840000 


43850000 


45860000 
45870000 


45880000 
45890000 


45900000 


45910000. 


45920000 
45930000 
45940000 
45950000 
45960000 


45970000 


45980000 
45990000 


46000000. 
46010000 - 
46020000 © 

46030000 


46040000 
46050000 


46060000 


46070000 
46080000 
46090000 
46100000 
46110000 


ee ee ae ee 
ENQ3 

IF PCTFAYLURE THEN GO TO RET3 

IF DEATH THEN DIE} 

FOR 1 © © STEP 1 UNTIL 15 pO IF USEDSTEI] THEN 
BEGIN PRESERVELOsI)] © TEMPLISTEI2; 
TEMPLIST&I) « 03 
ENDS 

ENTRY © FCTV,LINK3 

ue ENTRY = 0 THEN GO TO UNDEFFCT3 


FAT ERARETER % CALL FUNCTION 
% 
“MOVEWDS( 302ePRESERVELO% 16) »BACKREFLAG)3 ¥ INTERPRETER VARIABLES 
MOVEWDSCSPePRESERVEL Ls *}sPNAMEC 4393 
MOVEWDS(SP*PRESERVEL22*) sPPOINT( #4] 3 
MOVEWDSCSPsPRESERVEL 3s] ePSIZEC#I)3 
MOVEWOSCSPePRESERVEL Gs *]ePTYPEL SI 3 
_ MOVEWDSCSPsPRESERVELSs #Ie2PSTEC*I)3 
FOR t «© O STEP 1 WHILE I ¢ 15 AND USEFDSTCI] 00 
TEMPLISTECIY « PRESERVELO.113 
MV C2eLVSE* Ts 0eLV0 623 
RETURNVAL © TEMPCELLS % TO SAVE VALUE RETURNED. 
IF DEATH THEN GO TO FCTFAIL3 
AB © VALTABLELVeSTReLV,STWI3 
IF ABeCH 2 3 THEN % MOVE POINTER 
BEGIN I-« ABsCH = 23 
MVC2sRETURNVAL 2 6sDATALAB RAT oW]el,C)3 
ENDS 
VALUCRETURNVALD © AB,LOCS 
% THE VALUE IS NOW IN THE TEMPORARY LOCATIONS THE SYMBTABL LOC 
% LV CWITH SAME NAME AS FCT) IS INVALIDs BUT WILL SOON BE WIPED 
% OUT BY. THE CALL OF POPC(LV),. 
RET: J ¢ FCTV,S @ 23 
FOR K ©.0 ‘STEP 2 UNTIL J DO 
BEGIN MVC2eLVSEeleKelv26)3 
tf NOT POPC{LV) THEN 
IF PRINTMESSAGES THEN 
BEGIN MESSAGEIC20,INSTNO)3 
MESSAGETTIC 20s INSTNQ)3 
ENDS 
IF NOT CHECKOUTUSEC(LV) THEN FCTFAILURE © TRUES 
ENDS 
% IF INFORM THEN INFORMOC6)3 
PTYPEEMKS] « 13 
GO To IF FCTFAILURE THEN FCTFAIL ELSE 
TF RESULT THEN SUCCEED ELSE FCTFAILS 
TOODEEP: | % FUNCTION DEPTH > MAXLEVEL 
MESSAGEICILe INSTNODS 
MESSAGETTICiie INSTNO)3 
DIES - 
ENO DEFINEDS 
UNDEFFCTS ¥ UNDEFINED FUNCTION CALLED 
BEGIN SEGMENT 
WRITE CPRINTEOBL JeFBL 3 
WRITE CBUFOUTC® J *FUNDEFFCT)3 
AA © NAMELCF OTIS 


@® e@eeeeeeee @# @ @® @ @& @ & @® @ &@ & 6 


STEY 


@ MGOlG Tales § Corns, det, 


46120000 


MOVECTEMINC AAs $100) sFIRSTCHARCAA) »BUFOUTE #322993 
46130000 WRITECPRINTCOBL Js 17sBUFOUTE#I)3 
46140000 IF DATACOMF THEN % WRITE ON TELETYPE? 
— 46150000 BEGIN I ¢ I + 293 
46160000 MVC2sCRLFeSeOCWRITEL #32093 % "See 
46170000 MOVECT*BUFOUTE *)s220CWRITEL #12233 % MESSAGE 
46180000  —_sss MVC Be CRLF eo SeDCWRITELL W]e TeC#293 & "Seer 
46190000 If OUTPUT THEN} | 
46200000 TF DEBUGGING THEN % SUSPEND 
_ 46210000 BEGIN SUSPENDREASON(33 © TRUE3 
46220000 DERUG(SETGO)} 
46230000 FOTV « VALUCFCT]$ & RETREIVE NEW DEF es IF ANYe 
46240000 Go TO BRANCH ® TRY TO EXECUTE. 
46250000 END3 
46260000 ENDS 
46270000 sore? eters: 
46280000 END} 
“46290000 FCTFAIL?: % FAILURE EXIT FOR FUNCTIONS 
46300000 = TF BNOLEANCVALUCFCT],OUTUSE) THEN 
46310000 IF TRACEFCTRETURNCFCTsFALSE) THENS 
46320000 FATL3 
_ 46330000 SUCCEED: 
46340000 PSTCMKS) © RETURNVAL3 
~ 46350000 IF BOOLEANCVALUCFCT1].,OUTUSE) THEN 
46360000 ——s TF NOT TRACEFCTRETURNCFCTs TRUE) THEN FAILS 
46370000 PNAMELMKS] « FALSE3 
46380000 SP ¢ MKS + 43 
46390000  RELATIVEPOINTER ¢ as 
46400000 GO To PSCAN} 
46410000 END FUNCTIONS 
: 46420000 PTC eT eT aN aT TELLT TLL TELE TELL TET TETEE TELE TERT TETITTTT TELE TTT Teer TT 
46430000 Rew e ewe LITERAL WEAN Ree eee 
46440000 % 142% "#" LITERAL! 
46480000 % 2=CHAR POINTER To SYMB TABLE Loc, 
46460000 BEGIN PTYPELSP] © 13 
46470000 PSTCSP1] « TEMP,C1811233 
46480000 = PNAMECSP}) * FALSES 
46490000 SP « SP + {3 
46500000 RELATIVEPOINTER © 33 
46510000 GO TO PSCANS 
86520000 ENDS. 
46830000 Sakae svaeCVVERAL ObAeAnwedsancdentadeeees 


— BOSR0000 Rete eee QMARK sake e eR eR eee Re 
46550000 ¥ 121 QMARK END INST,» NO GOTO PART 
46560000 BEGIN 

46570000 MV COs CONTROLPOINT$15AAs2)3 

46580000. ~—s_YNSTNO © AA, C1201233 

~ 46590000 ~S$LOC © AA,CaMti2ay3 

46600000 FLOC & AA,£36312)3 
46610000 INSTRUCT ¢ (NEARPOTNT¢NEARPOINT#7), W + INSTRUCT) 
46620000 NEARPOINT © NEARPOINT.C? 

46630000 = % IF INFORM THEN CHECKSYMBTABL3 

~~ 46640000 IF RULESCLEVELJ«C = 7 THEN RETURNTEMPS? 

46650000 60 To INTERPRET 

46660000 END 


B6G6TO00D Seek eee ak QMARK eee ee ehk ended eee E EE 
GEBBOD0D Sake ee ee eG Oa T Oe eee eee eee ee EW EE 
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46690000 
46700000 


46710000 
46720000 
46730000 


46740000 
46750000 


46760000 
46770000 


46780000 
46790000 


46800000 


86810000 


46820000 
46830000 


_ 46840000 


46850000 
46860000 


46870000 


46880000 
46890000 


46900000 


46910000 
46920000 


46930000 


46940000 
46980000 


46960000 — 

46970000 

46980000 - 
. 46990000 


47000000 
47010000 


. 47020000. 


47030000 
47040000 


47050000, 


47060000 
47070000 


47080000 


47090000 


47100000. - 
47110000. 


47120000 
47130000 


AF 140000 
@7180000 — 
47460000 — 
—a7170000. 


47180000 
47190000 


47200000. 


47210000 
47220000 


_ 47230000 
47240000 


47250000 


2139 "2" GOerd 


BEGIN 
AA « AA,(18:1213 
SETGOS 
% AA MUST CONTAIN THE SYMBOL TABLE ADDRESS OF THE NEXT INST, 
VALULAAT.LINK © CABeVALULAAT «LINK # 13 % BUMP REFERENCE COUNT. 
IF BOOLEANCABsOUTUSE) THEN % LABEL IS BEING TRACED! 
BEGIN SEGMENT 
AC © NAMELAAT3 
Td -@ MINCAC.S263)3 
lee 71.4.3 6 11,04682173 
YT © ABaLINK + 13 
WRITE CBUFOUTL*]oFTRACELsI2sDIGITSCI)s1eleDIGITSCINSTNO)sINSTNOD3 
MVCI4sFIRSTCHARCAC) sBUFOUTE 412393 
WRITECPRINTSFBL 3 
_ WRITECPRINTONO] se 7*BUFQUTE*I 93 
END LABEL TRACING OUTPUTS 
IF ENTRY # AA THEN 
a BEGIN. 
ENTRY © AA} 
IF IT ¢ ABS < 7 THEN GO TO UNDEFINEDS 
tr I ¢ 63 THEN 
MVCTAaFIRSTCHARCAB) sINST£L #320) ELSE 
MOVECTsFIRSTCHARCAB) >» INSTC#) 2093 
ENDS 
MV COs INSTE#}s 3eAA2)5 
INSTNO © AA, £12%1213 
SLOG © AAsl2ati2)3 
FLOC © AAg636912]3 
INSTRUCT © RELATIVEPOINTER « O83 
NEARPOINT ¢ 93 
% JF INFORM THEN CHECKSYMBTABL3 
IF RULESCLEVELJ.C = 7 THEN RETURNTEMPS3 
IF DEBUGGING THEN &% CHECK LABEL. LIMITS 
FOR T.* 0 STEP 4 UNTIL NLABELLIMIT DO 
IF ENTRY #@ LABELLIMITCI] THEN 
BEGIN SUSPENDREASONE 2] «© TRUE, 
DERUGCSETGO)S 
GO TO INTERPRET3 
END? | 
GO To. INTERPRETS 
END? 
RAsESeSanAOnlQusene ise neresedanssatanees 
PERRIER ES 
Are at CHECK Wee w eee eke he 


% 253 "r" cHECK INPUT USE OF LAST ELEMENT 
BEGIN AA © PSTCSP"113 
IF BOOLEANCVALUCAA?,INUSE) THEN IF NOT SNBLINCAA) THEN FAILS 
RELATIVEPOINTER © 13 
GO To PSCAN3 
ENDS 
BAdeees es INPUT CHECKS Ste thee steee eee tsa 
Rake eeeae ek ARITHMETIC kth teh eee 
% 26 "." ARITHMETIC OPERATOR 

BEGIN 

INTOVR © ARYTHOVFLS 

EXPOVR © ARITHOVFL3 


idoor: Gusineas Poors, ia. ay ints 
@eose@ee8ee@e@ee08@0 00 @ 0@080:¢8086h6mM8%mhmCUMOMmCOHUmMC COC 
4 : ' 3 : st i cet a : Y t 
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t 


Peake 
{ 
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47260000. 


47270000 
47280000 
47290000 
47300000 


47310000 
- 47320000 — 
47330000 


47340000 


(47350000 | 
47360000 
47370000 
_.47380000 


47390000 
47400000 


_ 47410000 | 
47420000 
47430000 
47440000. 


47450000 
47460000 
47470000 


- 47480000 
47490000 ~ 


47500000 


~ 47510000 — 


47520000 


47530000 
— AT540000 


47550000 


- 87560000 
47570000 


47580000 
47590000 


- 47600000 © 


47610000 


— 47620000 
47630000. 


47640000 


47660000 
47670000 


47680000 


47690000 
47700000 


47710000 
47720000 
47730000. 
47740000 
47750000 


87760000 


47770000. 
47780000 
47790000 

47800000 

47810000 


47820000 


CASE DOTTYPELAA,C3) OF 
BEGIN 
% Of ERROR 


GO 


TO RERROR} 


2 18 "WN" NEGATIONS 


BEGIN 


if 
IF 


(MKS¢SP*1) € 0 THEN GO TO PERRORS 
PTYPEEMKS) = #4 


THEN AB « PSTCMKS) 
ELSE IF NOT NUMVALCPSTCMKSJ*AB) THEN GO TO NONNUMERICS 


PSTCMKS} « #AB3 
PTYPELMKS) « 13 


CO ENDI 
% 2% ARITHMETIC OPERATOR: 
BEGIN 
te €MKSeSP"2) < 0 THEN GO TO PERROR) 


tr 


a. 


re 
EES. 


TF 
IF 


TF 


47650000 


PTYPELMKS] § #14 
THEN AB ® PSTEMKS) 


ELSE IF NOT NUMVALCPSTOEMKS]*AB) THEN Go TO NONNUMERIC3 


PTYPErMKS#1] = "1 

THEN AC © PSTEMKS4413 

ELSE IF NOT NUMVALCPSTCMKS¢#iJ}2aC) THEN GO TO NONNUMERICS 
T*AAeC3 = "+" THEN T1 © AB * AC ELSE 

I= tte™ THEN [1 « AB = AC ELSE 

1 = "x" THEN [1 ¢ AB x AC ELSE 


‘Tos "/" THEN TF AC#O THEN GO TO DVDZERO ELSE 


CASE DIVIDEMODE OF 
BEGIN 


% OF ROUND — 


I4«@ AB/AC; 

x 48 TRUNCATION 
Id « ENTIERCAB/AC)3 

% 2! INTEGER 
IF CIL@AACAB/SAC) #£ ENTIERCAA)D THEN FATL 
ENO DIVIDE CASES ELSE 

Tos "e® THEN 

IF AC = 0 THEN T4 ¢ 4 ELSE 

“BEGIN 

IF ac <0 THEN 

BEGIN AC ¢ =»AC3 

AA © L/ABS 

~ END ELSE AA « AB3 

~ FOR Te 1: STEP 14 UNTIL AC DO AA © AA x ABS. 
ti « AA; 
END ELSE 


GO TO PERRORS % INVALID CHAR AFTER "," 


PSTEMKS] ¢ 113. 
PTYPECMKS} « @13 


ek Ee ane aE 
% 38 ",S" CONVERT TO STRING 


BEGIN 


od 


MKSeSP=1. < 0 OR PTYPEEMKS] # =4 THEN 
BEGIN INFORMOC9)3 : 

GO TO PERROR} 

ENDS 


PSTEMKS) « TEMPVALCPSTCMKS])3 
PTYPEEMKS] « 13 
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Moare Business T4ati ‘ 2 
2 ; : t ¢ Se ahha it Pees : $s singe as : : : ‘ : ergentet ee 
: i ae : a i I ak . : be : i ‘ H 
: i ye : : : H : eee 
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oe 
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_ 47898000 | 


“47830000 


47840000 
47850000 


. 47860000 
47870000 


47880000 


479900000 
47910000 


47930000 


47940000 


47980000 


"47960000 | 


47970000 


_ 47980000 
47990000 
48000000 
68010000. 


48020000 
48030000 


48940000 


48050000 


48060000 
~ 48070000_ 


48080000 
48090000 
48100000 


48110000. 
48120000 


48130000 


48140000. 


48180000 


48160000 

— 48170000 
(48180000 

48190000 | 


48200000 
48210000 


48220000 | 
48230000 | 
48240000 ce 
88280000 0 


48260000 
48270000 


48280000 


48290000 


48300000 
48310000. 


48320000 
48330000 


48340000 


48350000 
483460000 
48370000 


48380000 


48390000 


PNAMETMKS}] « FALSE3 
‘END 
FND ARITH CASES3 


% 
SP * MKS + 18 
RELATIVEPOINTER © 23 
—INTOVR © 03 | 

6C TO PSCANS3 
ARITHOVELE % INTEGER OVERFLOW IN ARITHMETIC! 
47920000) 


IF PRINTMESSAGES THEN 
BEGIN MESSAGEICOsINSTNO)S 
MESSAGETTICOsINSTNO)S 

ENDED 

FAIL} 


NONNUMERICS % NON*NUMERIC ARGUMENT TO ARITHMETIC? 


IF PRINTMESSAGES THEN 
BEGIN MESSAGEI(C17*+ INSTNOD3 
MESSAGETTICI7* INSTNOD} 
ENDS - 

FAILS 


DVOZERO: &¥ OIVIDE*BY"ZERO IN ARITHMETIC 


IF. PRINTMESSAGES THEN 
BEGIN MESSAGEI(18»INSTNOD3 
MESSAGETTIC18s INSTNO)3 
_ END} 
FAIL} 
END ARITHMETICS 


Bee eweeeeARTTHME TIC et kee kh Ni ities 


3 


Pvvasess eGRHUPTNGHea dese babekaeutawenens 
% 298 "¢" GROUPING 


BEGIN 
MKS « SP » AA,€3} 


Iie 03 % TO KEEP SIZE IN 
FOR 1 « MKS: STEP 1 UNTIL SP*1 DO 
BEGIN — 
“Joe TE. 


lf PTYPECI] # 1 THEN 
BEGIN INFORMICi*PTYPECIID3 
SYSTEMERROR « TRUE: 
GO TO pEADs 
ENDS — 
AA © PSTCII3. oe. 
14 * TL + VALULAA,S3 
END; 
AC « TEMPCELL# | 
VALUCAC] © AB © STRINGCI1sAC)3 
11 « AB,CH3 
12 ¢ AB.RI. 
FOR ! ¢ MKS. STEP 1 WHILE 1eSP oo 
BEGIN 
Te T3 
AA + PSTrri3 
AA © VALULAAI3 
IF J#AAsS > O THEN 
BEGIN 
IF J ¢< 63 THEN 


‘ 


eae 
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48400000 | 


48410000 
48420000 
48430000 


48440000 


48450000 


48460000 


48470000 
484R0000 


48490000 | 


48500000 
48510000 
48520000 


~ 48530000 


48540000 


48570000 


48580000 


48590000 
48600000 


48610000 | 


8620000 _ 
48630000 


48640000 


 §8650000 


48660000 


48670000 | 
48680000 
48690000. 
_ 48700000 | 
48710000 


48720000 
48730000 


48740000 — 


48750000 
48760000 


— 48770000 © 


48780000 
48790000 


46800000 


48610000 


48820000. 


48830000 


48840000 


48850000 


48860000 
~ §8B70000— 
46880000 


48890000 
48900000 


48910000. 
- 48920000 
- 48930000 
48940000 
48950000 


48960000 


MVE JsFIRSTCHARCAA)sDATALI2eT1.W1]211,C) ELSE 
— MOVEC Je FIRSTCHARCAA)SDATALI2e¢ 11 WieT1.C)3 
ti ¢ ti 4 J3 
END 
END} 
PSTEMKS) © AC3 
SP ¢ MKS + 43. 
PNAMECMKS?] « FALSES 
RELATIVEPOINTER © 23 


GO To PSCAN3 
ENDS % GROUPING 
Rete eekakt GROUPING eH etka ke nee eee eee 


; 


Peace eee WREPLACEMENT AAR eRe RRA eee 

% 312 "e" REPLACEMENT OR ASSIGNMENT 

_, 48550000 | 
48560000 


BEGIN RELATIVEPOINTER « 43 
iF SELFREFLAG THEN. % STR REF USED AS STR VAR 
BEGIN | 
Ip PRINTMESSAGES THEN 7 
BEGIN MESSAGEIC3,INSTNODS 
MESSAGETTIC 3s INSTNO)D3 
ENDS 
60 TO GOTOs 
END$ 


% TF INFORM THEN INFORMO(3)3 


“SIZE © CABEVALTABLEREFI@PSTLO]»STRsREFUePSTLO]«STW1)4S3 
NOREPLACES « SP = 13 
% CALCULATE SIZE Of NEW STR REF? 
FOR §P ¢ 1 STEP 1 UNTIL NOREPLACES DO 

SEeTN ‘AA «© PSTUSP33 

11 © VALULAA),$3 

RSIZE © RSIZE + 113 

ENOS 
% IF NEW STR REF IS NOT LARGER THAN THE OLDs THE SAME STRING 


-&% CAN BE USED. AB STILL POINTS TO THE STR REF, 


IF RSIZE > SIZE THEN 
BEGIN B81 ¢ TRUES % STR REF IN NEW STRING 
AA © STRINGCRSIZE»PST[01)3 
AB + VALTABLEREFI*REF JIS 
2 ag le] eee en nanan cece ne 
BEGIN 81 ¢ FALSE’ % USE SAME STRING FOR STR REF. 
IF RSIZE < SIZE THEN VALTABLEREFIT*REFJ1eS ¢ RSIZE3 
AA © ABS : 
END3 
% AA POINTS TO NEW VALUE, 
% AB POINTS TO OLO VALUE, 


Pe PAG R} 


J-* ABR 
IF: Bt. THEN AF. FRONTEND > 0 THEN 
IF FRONTEND $ 63 THEN 
MVCFRONTEND#DATAL Je AB eW Ie ABeCeDATACI sAAeWIsAAeC) ELSE 
: MOVECFRONTENDsDATALC Is ABW] sABsCeDATALT AAs W1rAAeC)3 


Tl e¢ FRONTEND. + AA,CHS % POINTER TO NEXT CHAR TO BE OVERWRITTEN, 


% REWRITE. MATCHED PORTION! 

FOR SP « 1 STEP 4 UNTIL NOREPLACES 00 
BEGIN AC « PSTUESP]} 
Ac ¢ VALUCACT} 


sarees fe : : i i : : : ee ee : : : 
! ey i i me : : : . : i ‘ 


ae Pee Pea ia 3G ee 
: ‘ i ae : eS : oe a : i oke ad ae : : 
: / . oo : : i : a ! : : ‘ : : 


48970000. 


48980000 
48990000 


49000000 


490140000 
49020000 


49030000 


49040000 
49050000 


49060000 


49070000 
49080000 


49090000 


49100000 
49110000 


49120000... 


49130000 
49140000 


_ 49150000 


49160000 
49170000 
49180000 
49190000 
49200000 


49210000 


49220000 
49230000 


49240000. 


49250000. 


49260000 
49270000 


49280000 
49290000 


_. .49300000 
49310000 
49320000. 

- 49330000 - 


49340000 
49350000 


49360000 
49370000. 
49380000. 
49390000, 


49400000 
49410000 


89420000 | 
49430000 © 
49440000 
— 494g0000 
49460000 


49470000 


49480000_ 


49490000 
49300000 


49310000 


49520000 
493530000 


Ip ¢l2*«Ae.S) > 0 THEN 
BEGIN IF 12 ¢ 63 THEN 
MVCT2eDATALAC eRe ACeWIeACeCoDATALI eoTieWJeTisC? ELSE 
MOVECT2eDATALAC eRe AC eW I] sACeCeDATALI oli aWlell eC} 
11 ¢ 11 + [23 
ENDS 
END? 
IF REAREND > 0 THEN IF 81 OR RSIZE * SIZE THEN 
BEGIN 12 ¢ AB,CH + SIZE = REAREND; 

YP REAREND > O THEN IF REAREND $ 63 THEN 
MVCREAREND*DATAL Js T2.WI2T2,CeoDATALIo 11 WleT1ieC) ELSE 
MOVECREAREND sDATAL Jo TAN] eToeCeDATACIs Ti eW)e TL eC)3 

END; 
IF Bt THEN VALTABLOCREFISREFJJ«LOC © AA; 
IF BOOLEANCAB.OQUTUSE) THEN | 
JF NOT SNBLOUTCPSTE[O}) THEN GO TO FAILED 
60 To GOTOs 
END : os 
RtaeneeakREPLACEMENT## tek Ww ewe RRR 
533 
Reaeeeeee ABEL INDIRECTIONswkurattbekene 
% 352 "1" INOTRECT TO PRODUCE LABEL 
BEGIN 
IF SP # 1 THEN GO TO PERRORS 
AA © VALUCPSTLO]I13 
AA © ENTERST CAAsSsDATALAA,Re® ]oAAaCHe "INST" ) 3 
G0 To SETGO: 
END} 
Zeea eee el ABEL INDIRECTION#eenswteneenes 
BR 3353 
LeeeeeeaeINOTRECTION Reeth tanaka nee EHS 
% 42% "$" {NDIRECTION 
rere 
IF INFORM. THEN INFORMOC16)3 
te (SPeSP"1) < 0 THEN 
BEGIN INFORMI C232 INSTNOD3 
-SYSTEMERROR © INFORM « TRUE} 
60 TO DEAD! 
ENDS 
AB @ PSTrSPy3 
FOR To@ AAC? STEP bane UNTIL 1 00 
BEGIN” 
AC © VALUCABY3 
IF BOOLEANCACs INUSE) THEN 
BEGIN IF NOT SNBLINCAB) THEN GO TO FAILED 
AC ¢ VALULAB IS. & INPUT MAY MOVE MAGYE 
oe ENDER S: 
on Tf PRINTMESSAGES THEN IF AC,S = 0 THEN 
BEGIN. MESSAGETC19+ INSTNODS 
MESSAGETTICI9»INSTNO)3 
ENDS 
AB © ENTERSTCAC.SsDATACACeRs*J]2 AC. ,CHs "SYMB') 3 
If DEATH THEN GO TO DEAD3 
ENDS 
PSTCSP] » AB; 
PNAMELSP] ¢ TRUES 
SP « SP + 13 


@eeee@eeeses#eesee e#* # © @® @ @ @ &® 8 4 


i 


ha Ruesre Busingss Sorms, imc. sv tart 
i : i 
: 1 i 


t 


49540000 


49550000 


49560000 
49570000 


— 49580000 


49590000 


49600000 


~ 49610000 


49660000 


49620000 
49630000 | 


49640000 
49650000 


49670000 
49680000 


49690000 


49700000 
49710000 


49720000 


49760000 — 


49840000 
49850000 


49880000 
“49890000 


49730000 
49740000 
49750000 


49770000 
49780000 


49790000. 


49800000 


_ 49810000 
49820000 — 


49830000 


49860000 
49870000 


49900000. 


99970000 


49930000 


49920000 


49940000 


—-§0000000 
~§0010000_ 
80020000 
$0030000 


49950000 


49980000.” 


49970000 
49980000 
49990000 


50040000 
50050000 


RELATIVE 
GQ To PS 
ENDS 


_IF LeAA. 


POINTER « 23 
CAN3 


VeeeeeeeeINOIRECTIONM Reet ee Re 
Rate a STR VARRAREE RHEE RARER Ee 


STRING VARTABLE 


POINTER ¢ 23 
¢ TRUE, 

= 13 

c3 OF 


PERROR3 

VAR 

PTYPECSP] «+ 23 
CSP] ¢ 03 


VAR 
PTYPELSP) ¢ 43 
cSP1 « 13 


ED=LENGTH 


SIZE < 0 THEN RULE FAILS. 

F PTYPECSP)] = 7 

THEN TLe¢PSTCSP} «< 0 

ELSE NOT NUMVALCPSTCSPJsI11) OR 11<0) 
FN GO TO FIXERRS 

(SPeSP#1)] «© I13 

rSP) © 33 


AR CASES} 
+ 13 


CAN} 


Bo agt Net 
BEGIN | 
RELATIVE 
VARFLAG 
SP « SP. 
CASE AA, 

BEGIN 
% ERROR 
60 TO 
% 4! ARB 
BEGIN 
PSIZE 
END3 
 % @t BAL. 
BEGIN 
PSIZE 
ENDS 
%. 39 FIX 
BEGIN 
ZF 
IF Cf 
TH 
PSIZE 
PTYPE 
EnD 
END V 
Sp «© SP 
60 To PS 
ENO 


Reet weeeeSTR VARS Aka Ree he eR ah the 
KeeweweeewRESERVED LABEL eee waeek ata ea te 
% Aat ay tf 


RESERVED LABEL 
.¢3. 8 "R" THEN 


BEGIN RESULT © TRUE3 


IF los" 


GO TO RETURNS 
_ END E 


| i ee 
Fr" THEN 


BEGIN RESULT © FALSES 


_ Go TO 
END E 


oY an 


BEGIN 
60 TO 
END3 


BRRRS 


RETURNS 
RE oe 
Ee" THE 

RESULT © TRUES 

ENDTERPRETS 


Beans eee tRE SERVED. lal ate acral obi al 
‘50060000 


80070000. Seceedesucosto PARTHARAER RNA N RAHA ERE HES 
$0080000 % agt "7" GOrTO PART DELIMITER AFTER PATTERN 


“50090000. 


50100000 


GOTO! 


BEGIN 


Bec ee ceo 4 : % ae : 3 H i ed ; ae a iudce ee : bos : 


~§0110000 & TF INFORM THEN INFOQRMO(26)3 
50120000 NEARPOINT © IF SUCCESS THEN SLOC ELSE FLOC3 
50130000 INSTRUCT « NEARPOINT,W3 
50140000  NEARPOINT ¢ NEARPOINTeC3 
50150000 | RELATIVEPOINTER ©. SP ¢ OF. 
- §0160000 INGOTOPART © TRUES 
~§0170000 G0 TO PSCAN3 
50480000 ENOS 
50190000 KeeereeeeGOnTO PART RHEE RHEE Ry 


_. §0200000 SteeseeetENy STR REP ante t eee rath keke 


: BAgore Businon. Docs. fac. se ye Tey 
' : : : She + : : ' F : . \ bow a : i : : : ¢ : 
: aie 1s j ies : : I i : : i : i 
' : : ae i ! ad © Hee ! H : : : be i ; os 


50210000 % Sot "S* END OF STRING REFERENCE, BEFORE PATTERN 
30220000. BEGIN - 
-§0230000 IF BOOLEANCVALUCPSTCO]3}¢INUSE) THEN 
50240000 Ie NOT SNBLINCPSTLO]) THEN FAILS 
50250000 PTYPELO] © ANCHORMODE3 
$0260000  —s PSfZrfO) © ANCHORSIZEs 
=: 80270000. PPOINT(O1. ¢ 03 
§0280000  =RELATIVEPOINTER © 13 
_.50290000 (6D To PSCAN; 
50300000 END3 
50310000 AaeweeaenweacxeEND STR REP tae et eek ke eae 
...39320000 _ 3333 
503230000 Rieke awe ee SYNTAX FRRORRAA ERR 
50340000 % 55: "y* SYNTAX ERROR IN ORIGINAL CODE 
~§0350000 BEGIN MESSAGEIC1sINSTNO)5 
503460000 MESSAGETTIC4sINSTNODS 
50370000 GO To DEAD; 
_.89380000 ENDS. 
50390000. Seeueweet SYNTAX pRRORI CAI G Eaaeeensaeee 
~§0400000 333 
-- §0410000 SexweweaeeNONB INPUT: STRINGktkaakae tine tny 
50420000 % 59: "%* NON*INPUT STRING NAME 
50430000 BEGIN PTYPELSP) © 13 
§0640000 i £=PSTESPI] «+ AAf18t1273 
50450000 PNAMPESP} © TRUES 
50460000 SP «© SP + 13 
50670000 — RELATIVEPOINTER © 33 
50480000 GO TO PSCAN: 
50490000 ENDS 
80500000 SeeexeeeeNONeINPUT STRING Reka e ea tee ee 
50510000 ee 
50520000 Rede eee e PATTERN MATCH Retake eke ee eke 
(50530000 % 613 "x" PATERN MATCH 
50540000 BEGIN 
50580000 % IF SP <¢ 1 THEN GO TO PERROR3 
50860000 | RELATIVEPOINTER « 43 ; 
S0870000... PMINLERT LSP ©« PTYPECSP] ¢ Q3 % TO END SCAN, 
~§0580000. “NOPATTERNS « SP = 13 
50590000 BACKREFLAG. « FALSE; 
50600000 FOR Y ¢ NOPATTERNS STEP “1 UNTIL 1 00 
50610000 BEGIN 


59620000 |. If_It * PTYPECI) * 1 THEN 
50630000 FOR J ¢ ret STEP =i UNTIL O 00 
50640000 BEGIN 

_ §0680000 Ir PStel] = PSTCJI 
30660000 THEN IF PTYPELJ] # 1 
50670000 THEN BEGIN 


: fAvorg @usiness Feoms, ina, av ones 
: : ; SOE ce i : : i 


50680000 


80690000 
50700000 


50750000 
50760000 
50770000 


50800000 


50810000 


50820000 
50830000 


§0840000 
§0880000 
50860000 

80870000 


50880000 


—§0890000_ 


50900000 


80910000 
- §0920000° 
§0930000 


50940000 


50950000 

50960000. 

- §0970000 © 
530980000 ~ 


50990000 
§1000000 


51010000 


51020000 


51030000 
81040000 


§1050000 
51060000 


51120000 


31130000 


§1140000 
§1150000 


81160000 


§1170000 
51180000 


94190000. 
51200000 | 


51210000 


_§0710000 | 
30720000 
50730000 
50740000 


TF 


~§0780000 
50790000. 


PTYPECYI) ¢ I 
PBACK[(T] « J 
PSIZECI] © PSIZELJI3 
BACKREFLAG © TRUES 
GO TO MINLEFS 
ENDS 
END ELSE IF I1 $ 4 THEN 
IF PSTCI] = PSTL0) 
THEN SELFREFLAG + TRUES 
Ii = 1 THEN % SET PLENGTH & LLOC FIELDS 
BEGIN AB « PSTLI)3 
PSIZELI] © CPLOCEI] © VALULABI).S3 
ENDS 


1 « 53 
H 


MINLEF! & THE MINLEFT WORD HOLDS THE “MINIMUM SIZE OF THE 


_ 51070000... 
-§1080000 
81090000 

81100000 | 

81110000 


531220000 


51230000 
51240000 


% REMAINDER OF THE PATTERNe 
PMINLEFTCI] © PMINLEFTEI4+1] + PSIZECIIS 
END} 
—REFLOC «© CAACVALTABLEREFI©PSTLOD, STR+REFJEPSTLO}, STW1),CH3 . 
SIZE -« AA,S3 
RPR « AA,R3 
SP ¢ QO} 
NOBACKORRBAL © TRUE} 
NEWPOINT? ~ 
PPOINTCSP41) * PPOINTESP? + PSIZECSPI; 
NEXTPATTERNE | 
SP « SP + 43 
IF PMINLEFTESPJ + PPOINTCSP) > SIZE THEN GO TO SIZEFATLURES 
“CASE PTYPECSP) OF . 
BEGIN 
% Of END oF SCAN» IF AFTER LAST PATTERN. ELEMENT? 
GO-TO TF SP > NOPATTERNS THEN SCANSUCCESS ELSE SCANERR3 
% 4% CONSTANT PATTERN ELEMENT 
BEGIN 
AA © PLOCCSPI3 
REFPT © REFLOC + PPOINTCESP)3 
GO TO IF CIF CleAAsS) § 63 THEN 
EQCTeFIRSTCHARCAA) sDATALRPR,REFPT.WIeREFPT,.C) ELSE 
EQUAL (IeF IRSTCHARCAA) sDATACRPRsREFPT eWI»REFPT» C)) 
THEN NEWPOINT 
.. ELSE DROPBACKS 
ENDS . 
% 2% ARBITRARY STRING VARTABLE 
BEGIN PPOINTESP41] « PPOINTCSPI3 
GO TO NEXTPATTERN3 
END} 
% 3% FIXED@LENGTH STRING VARIABLE 
GO TO NEWPOINTS 
% 41 BALANCED STRING VARIABLE 
BEGIN NOBACKORBAL © FALSE3 
INCREASE * 03 
REFPT © REFLOC + PPOINTCSP]3 
BALANCE: | 
COUNT © O38. 
NO BEGIN. . 
IF PPOINTCSP] + ‘INCREASE*INCREASE+1 > SIZE THEN GO TO DROPBACK3 
IF AAeCHARCDATACRPReREFPTeWIeREFPT.C) © "CC" THEN 
COUNT * COUNT + 1 ELSE 


ioe a Guiness Fares, fac sy oe 
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81250000 


51260000 
51270000 
§1280000 


~-§1290000 | 
--§1300000 
~$1310000 


51320000 
51330000 


_..31340000 


51350000 
51360000 


_ $1370000) 


§1380000 
51390000 


..BA400000. 
51410000 


51420000 


-$1430000, 
31440000 


51450000 


51460000 
51470000 


51480000 


51490000 — 


51500000 
51510000 


31520000. 

31530000 _ 
51540000 
- §1550000. 


81560000 
51370000 


81580000 


§1590000 


$1600000 
§1610000 


51620000 
§1630000 


—-§$1640000 | 
51650000 
 $1660000 
-§1670000 


51680000 
51690000 


81700000 
—S1710000— 


~-§1720000 


_$1730000 
51740000 


31750000 


51760000 _ 


51770000 
81780000 
81790000 
§1800000 
51810000 


IF AA = "2" THEN 
COUNT © COUNT = 13 
REFRT « REFPT + 43 
END UNTIL COUNT $ 03 
Ir COUNT < 0 THEN GO TO DROPBACKS 
PPOINTESP4#1) * PPOINTESP) + PSIZECSPIeINCREASES 
GO TO NEXTPATTERNS 
END3 
¥ 5S! BACK REFERENCE: 
BEGIN NOBACKORBAL © FALSE3 
INCREASE. ¢ PPOINTCPBACKESPJ]41) = TL*PPOINTCPBACKCSPI))3 
tp PPOINTESP] + INCREASE > SIZE THEN GO TO SIZEFAILURES 
Ii ¢ REFLOC + 143 
RefPT ¢« REFLOC «+ PPOINTCSP]3 
IF NOT EQUALCINCREASESDATACRPRe Ii Wlel1 eC» 
—-« DATALRPRSREFPT.WIsREFPTeC) THEN GO TO DROPBACKS 
PPOINTCESP41] © PPOINTCSP] + INCREASE} 
GOTO NEXTPATTERNS 
FND oo! 
END CASES} 
60 TO SCANERR3 
SIZEFATLURE?. 
IF NOBACKORBAL THEN 60 TO SCANFAILURES 
DROPBACK! 
pO IF (SP*SP#1) < 0 THEN GO TO SCANFAILURE 
UNTIL NOT BOOLEANCPTYPECSP 3 
% NON@EXTENDABLE IF CONSTANTs FIXED@*LENGTH OR BACK*REFERENCE 
% CAN ONLY BE EXTENDED FOR SIMPLE & BALANCED VARIABLES. 
IF PTYPETSP) 3 2 THEN % ARBITRARY VARIABLE? 
BEGIN ~ oe 
GO TO IF PMINLEFTCSP41}] + PPOINTESP+LJ*PPOINTCSP+1 341 S$ SIZE 
‘THEN NEXTPATTERN 
ELSE SIZEFAILURE: 
END ELSE % BALANCED VARIABLES 
BEGIN 
REFPT © REFLOC + PPOINTCSP] + INCREASE*PSIZECSPI3 
60. TO BALANCES 
END; 
SCANERR? 
BEGIN SEGMENT | 
INFORMITC 32 INSTNO*SP)3 
By WATTESTACKCNOPATTERNS* 423 
ABORTS- 
ENDS 
SCANSUCCESS: 
% IF INFORM THEN WRITESTACKCNOPATTERNS#+1 D3 
IF PTYPELSP=1) = 2 THEN PPOINTCSP] «& SIZE3 
% ASSTGNMENT OF STRING VARIABLES? 


3 IF INFORM THEN INFORMOCO)3 
FRONTEND ¢ PPOINT(193 
REAREND « SIZE * PPOINTCNOPATTERNS+1 93 


RSIZF * FRONTEND + REAREND3 


IF VARFLAG THEN 

BEGIN 

IF SELFREFLAG THEN 
BEGIN & MAKE COPY OF STR REF VALUES 
TEMPREF « TEMPCELLS 


« 
s 
° 
* 
. 
i 4 
. 
J 
« 
i 


--§1820000 AA ¢ STRING(SIZE» TEMPREF )3 
51830000 IF DEATH THEN DYES 
51840000 AB « GACHLeE AEE S RERUSG 
§1850000 MOVECSIZE»FIRSTCHARCAB) sFIRSTCHARCAA) D3 
51860000 VALUCTEMPREF) ¢ AB «© AAS 
-§1870000 END ELSE | 
§1880000 | BEGIN TEMPREF + PSTCOI3 
51890000 AB © VALULTEMPREF ]3 
51900000 ENDS 
51910000 FOR SP ¢ 1 STEP 1 UNTIL NOPATTERNS DO 
51920000 IF PTYPELSPI>1 THEN IF PTYPELSPJ<5 THEN IF AC*PST[SP]#0 THEN 
51930000 BEGIN 
-§1940000 | & STRING VARIABLE ASSIGNMENTS 
51950000 IF CJePPOINTCSP+1J"PPOINTESP)) = 0 THEN 
51960000 VALUCAC].S * 0 ELSE 
.§1970000 BEGIN 
51980000 IF CAA*VALUCACI)6S < J THEN 
51990000 | % NEED NEW STRING*oNEW VALUE LARGER THAN OLD. 
~§2000000 — BEGIN. AA « STRINGCUSAC)3 
52010000 AB « VALUCTEMPREFY3 
§2020000 VALULAC]sLOC © AAS 
7 _.$2030000 .  . END ELSE 
52040000 $CAN USE OLD VALUE=*NEW VALUE SHORT ENOUGH 
_ §2030000 — VALULCAC]S © Js 
-§2060000 Td © AB.CH + PPOINTESP}S 
52070000 IF J ¢§ 63 THEN 
52080000 MVC JeDATALABeRelloWdal le C»FIRSTCHARCAAD) ELSE 
52090000 SHOVEL J ADATAGAG: Rell W)elt CesFIRSTCHARCAA) D3 
. - §er00800 EN 
82140000 | TF BODLEANCVALUEAC, ,OUTUSE) THEN IF NOT SNBLOUTCAC) THEN FAILS 
§2120000: 


END3 
~ §2130000 © END ASSIGNMENT OF STR VARS} 
52140000 SP e¢ 13 
.82450000 — gO_TO PSCAN3 
§2160000 ENO}. 
52170000. Rana eeeeePATTERN MATCH Wee keke neha ke 
52180000 3 
~ §2190000. Vicsvccccstntng NAME Skea dane eee take 
52200000 2 632 """ STRING NAMEs WITH INPUT CHECK 
52210000 BEGIN PTYPELSP] ©¢ 13 
52220000 PSTESP) « I + AA,C{8t1213 
52230000 edt BOOLEANCVALUCT). INUSE). THEN AF NOT SNBLINCT) THEN FAILs 
82240000 PNAMEESP) © TRUES : 
52250000 SP « SP + 13 
§2260000 RELATIVEPOINTER © 33 
32270000 GO To PSCANS 
82280000 END 
- .§2290000 RaseseeeeSTRING NAMEWt eee eae R HERD 
-§2300000 END PSCAN CASESS 
52310000 PERRORE 
52320000 BEGIN SEGMENT 
_.§2330000 I INFORMICSsINSTNODS 
§2340000. WRITECPRINT# 17s INSTL#I)3 
- §2350000 CLEARCBUFOUTS 173 
82360000 {fF INSTRUCT x 8 # NEARPOINT < 132 THEN 
52370000 MV C19 QMARK»s 7eBUFOUTCINSTRUCTI »NEARPOINT)3 
52380000 WRITECPRINTS 17 sBUFOUTEC #33 


@®eexeeeeeeee#@6ee0ee08@8@886¢60 86 @ 
@®eeeeeeeeeeees#e8 6 @ @ @© @ @® ®@ 


38 Farms, fae. vy 


3 : : ‘ hasiy Lee 
paaee iuteetapeet Pia hs tS, - : ae beasties ; 
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e © 


$2390000 
52400000 
52410000 


..§2420000 


52430000 
§2440000 


52450000 | 


52460000 
52470000 


_ §2480000 | 


52490000 


- §2500000 
52510000 


52520000 
32530000 


_ 52540000 | 
‘52550000 
-§2560000 
32570000 © 


52580000 
52590000 


52600000 


§2610000 


$2620000_ 
52630000. 


§2640000 
52650000 


$2660000 
52670000 
52680000 — 
- §2690000 


52700000 
§2710000 


—§2720000 | 
52730000 
-§$2740000 
— 52750000 | 


52760000 
52770000 


52780000 | 

82790000 | 
52800000 

-§2810000 


52820000 
§2830000 


52840000. 


~$2850000 


§2860000. 
$2870000- 


52880000 
52890000 


$2900000 _ 


§2910000 
52920000 
52930000 
— §2940000 
52950000 


RESULT © FALSE3 
ABORT, 
END3 


FIXERRE 


IF PRINTMESSAGES THEN 
BEGIN SEGMENT 


WRITECPRINTSFBL D3 


AA © VALUEPSTESPI)3 
WRITE CBUFOUTC* JeFFIXVARSIZEs AAgSsINSTNOD3 


MOVECMINGAA cS e116) sFIRSTCHARCAA) »sBUFOUTE #1216)3 


WRITECPRINTs 17sBUFOUTC#))3 
IF INFORM THEN WRITESTACKCSP)3 


FATLS 
ENDS 
SCANFATLURES 


_IF_ INFORM THEN 
BEGIN INFORMOC8)3 
WRITESTACKCNOPATTERNS#1 93 
ENO} 


ATLED! 


% IF INFORM THEN INFORMOC4)3 
IF INGOTOPART THEN % GO*TO PART HAS FAILED==FATAL ERROR 
BEGIN 
MESSAGEI C2 INSTNOD3 
_ MESSAGETTIC2s INSTNODS 
DIES 
ENDS 
IF DEATH THEN OIE 


SUCCESS ¢ FALSES 


69 To GoTos 


“DEAD?  -& FATAL ERROR HAS OCCURRED*@TERMINATE PROGRAM. 


% ERROR MESSAGE SHOULD ALREADY HAVE BEEN PRINTED, 
BEGIN SEGMENT 


_YF SyYSTEMERROR THEN ABORTS 


IF DEBUGGING THEN % SUSPEND: . 
BEGIN SUSPENDREASONE3) © TRUE} 
_ DEATH © FALSES 
DEBUGCSETGO)} 
ENDS 


_MESSAGETTIC13*INSTNOD3 
RESULT © FALSES 
GO To ENDTERPRETS 


ENDS 


LIMTTHIT! % SYSTEM LIMIT OF SOME SORT PASSED*=PRINT ALL LIMITS. 


BEGIN SEGMENT 

OMPSTR « TRUEF | 
MESSAGETC4eINSTNO)3 
MESSAGETTIC4sINSTNO)3 


_IF CPULIMITEXISTS THEN 


BEGIN MESSAGEICSsCPULIMIT/60)3 
MESSAGETTICS#CPULIMIT/60)3 
ENDS 
IF YOLIMETEXISTS THEN 
BEGIN MESSAGEIC4sIOLIMIT/60)3 
MESSAGETTICO*#IOLIMIT/60)3 
ENDS 
IF RULELIMITEXISTS THEN 
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32960000 


52970000 
32980000 


52990000. 


53000000 
53010000 


53030000 
533040000 


_§3050000 | 
53060000 


§3070000 
53080000 


53090000 


53100000 


53110000 | 
53120000 
53130000 
53140000 | 


53150000 
33160000 
§3170000 


~§3180000 


53190000 


_§3200000 . 
§3210000 


83220000 
§3230000 


§3240000 


53250000 


— §3260000_ 


§3270000 
33280000 


—§3290000° 
53300000 


§3310000 
53320000 


53330000 


§3340000 
53350000 


— §3360000° 


53370000. 
53380000 


~ §3390000 


$3400000 
§3410000 


53420000. 
- §$3430000 
 §3440000 


§3450000 
534460000 


83470000. 


—§3480000 
~ §$3490000 
—$3500000 


53510000 
33520000 


BEGIN MESSAGEI(C7*sRULELIMIT)3 
MESSAGETTIC7*#RULELIMIT)3 
ENDS 
_ RESULT ¢ FALSES 
DIES 
END LIMITHITS 


53020000 UNDEFINED? | ‘% ATTEMPTED TRANSFER TO UNDEFINED LABEL. 


% AA MUST CONTAIN SYMB TABLE ADDRESS OF LABEL. 
BEGIN ALPHA ACs AB; 
DMPSTR © TRUBS 
WRITE CPRINTsFBL D3 
AB © NAMEEAAT3 
WRITECBUFOUTEC#]>FUNDEFLABEL)3 
MOVE CTEMINC 902 AB eS) oFIRSTCHARCAB) *BUFOUTLC *1] 24093 
WRITECPRINTs 17sBUFQUTC#))3 
IF MATACOMF THEN % WRITE MESSAGE ON TELETYPE? 
BEGIN MVC2eCRLF se S*DCWRITEL*I20)8 
MOVEC TOI +38sBUFOUTE #]s2-DCWRITEC 42293 
MVCBeCRLF se SeDCWRITECT Wiel eC 4293 
tr OUTPUT THEN; 
YF DEBUGGING THEN % SUSPEND 
BEGIN SUSPENDREASONE3] ¢ TRUE? 
AC * AA} 
DEBUGCSETGO)3 
% SEE IF LABEL DEFINED NOWs 
GQ TO IF VALULAA€AC],.S 2 10 THEN SETGO ELSE UNDEFINED 
ENDS 
ENO3 
RESULT 7 FALSES 
OTE} 
ENDS 
RETURN! 
% IF INFORM THEN INFORMICLOeL EVEL 23 % END OF THIS LEVEL. 
RETURNTEMRS; 
IF LEVEL*LEVEL@1 $ 0 THEN % RETURN» NO FUNCTION CALLED 
BEGIN MESSAGEO(22)3 
MES SADENTE CUR 2 TNSTNGI} 
DrE3 
EnD3 


END INTERPRETERS 
Rave tee ek INTERPRETER Wake We ek eR ER I ee ER EER EE ER KR EH 


Raww ket ew INTRINS FC se tiie te te tet it tit tok tii a fea I IIIT ITC TOI IDOI EI Ie Bitar 
% GIVEN A. FUNCTION NAME (S CHARS**STARTING P CHARS PAST 40) )s 

Z INTRINSIC RETURNS THE INDEX FOR THE BRANCH TO INTRINSIC FCTS IN THE 

% INTERPRETER. IF THE FUNCTION IS NOT AN INTRINSICs O IS RETURNED. 
INTEGER PROCEDURE aR 

VALUE Ps S3 

ALPHA ARRAY LfO33. 


INTEGER Ps» $3 


BEGIN LABEL FIN» NON 
ALPHA F3 
INTEGER I3 


BOOLEAN FX3 


% 
If S$ > 7 OR S < 3 THEN GO TO NONS 
Foe 0} . 

MVESeLEIP WI) oP eles 825) 3 


@® ee @ @e0@ e0@ e080 0808 8 080 080 8 8 @# @® @® @# @ @ @ ea 4 


i 


eeeeeveveeeeeevneeeweeeee #8 4 


i 


53530000 


53540000 
33550000 
53560000 


-- $3570000 
53580000 
§3590000 


53600000 
53610000 


.. 53620000 


53630000 
53640000 


53650000. 


53660000 
53670000 


_ §3680000 % 
53690000 


53700000 
53710000 
53720000 


53730000 


53740000 


~ §3750000 | 


53760000 


53770000 


53780000 
53790000 


53800000 | 
53810000 
§3820000 
-_-§3830000. 


53840000 
53850000 


§3860000 


53870000 
§ 3880000 


83890000 


53900000 


§3910000. 
33920000 


53930000 
53940000 


_ 53950000 


53960000 
53970000 


_ 53980000 | 


53990000 


54000000 - 
34010000 


54020000 
54030000 


54040000 


54050000 
54060000 


_ §4070000 


54080000 
54090000 


FX « NOT BOOLEANCF 23 
FOR I © INTRINSFCTES20) STEP =1 UNTIL 1 DO 


IF REAL CNOTCBOOLEANCINTRINSFCTECSsI)) EQV FX)) = TEENYNEG THEN 


BEGIN INTRINSIC © INTRINSNOXES*133 
1 * INTRINSNOX(Ss133 % FOR TRACING 
60 TO FINS 

: ENDS 

NONt INTRINSIC « 03 

FINS 

END INTRINSIC3_ 


Sew w eae TNTRING TCR ti a i i i ie IO i a iO RIOR Soi ti iii tok i don eink 
Bok tee te tee te LOADER eh ie We ae ede a ae i Bite te TR TOI ee RI IOR I a STII IOI TO tet 
% LOADER READS THE PROGRAM MATERIAL IN THE FILE PROGRAM» AND 


CAUSES THE PROGRAM TO BE COMPILED, 


SINGLE ARRAY ROW AND PASSED TO COMPILEs 
SIMILARLY PASSED TO PROCESSCONTROLCARDe 
IF THIS WAS 


THE WORK ON THE FILE IS TERMINATEDe 


COMPILATION. IS COMPLETED BY INITIALIZING VARIOUS 
DECK» CAUSING THE INTERPRETER TO BE CALLED. 


INSTRUCTIONS 


ARE PUT INTO A 
CARDS ARE 

END CARD IS FOUNDs 
THE GLOBAL FILE» 
GLOBAL ITEMS» 


NOTE THAT THE HIGHEST 


LEVEL OF RECURSIVE CALLS OF LOADER MAY BE USING THE TELETYPE CIF 
PROGRAMFROMREMOTE IS TRUE)» IN WHICH CASE THE PROGRAM FILE IS NOT 


% 
% 
z 
% 
% 
“BAND THE LOADER RETURNS TO THE CONTROL CODE AT THE END OF THE 
% 
% 
% 


USED. 


i es 
% 
BEGIN 
INTEGER | 
Te 
pore be 
ALPHA ARRAY | 
INST[O3102233 
LABEL 
As. 
CONTs 
CONTROL» 
ENe | 
EOFs 
FINe 
GOTINST» 
INITIALIZE> 
LABELEDs 
LOAD 
RD» 
TTLOST>» 
UNLABELEDS — 
SWITCH INSTBR e 
RDe 
CONT». 
CONTROL» 
EN» 
UNLABELED? 
LABELED; 
b 4 
RO! IF HEATH THEN GO TO FIN3 
INSTSIZE ¢ O3 
IF PROGRAMFROMREMOTE THEN 


PROCEDURE LNADERCPROGRAM)3 FILE PROGRAMS 


& 


| poore Business Foims, inc. s¥ eon 
ie , Petes i vetitivagenine : Oo : ae i : : a : : : sen tak dl faerie 
oe soe ! | ee eee | { i i i : } : ‘ ; : i 
: i Pants ‘ : : ' i : i ‘i i 


~§4100000 


54110000 
54120000 
54130000 


~~ §4140000 | 
54150000. 
54160000. 
~ 84170000 


54180000 
54190000 


~§4200000 
§421;0000_ 
- §4220000 


54230000 


54240000 
§4250000 


§4260000 


54270000 
~§4280000 


54290000 
543600000 


84310000 
- §4320000 
84330000 
34340000 | 
54350000 


54360000 


_ 54370000 | 
54380000 

54390000. 

54400000. 


~ 84410000 


54420000 
534430000 


54460000 
34480000 


34490000 


54500000 


-- §4510000. 
84520000 - 


54530000 
34540000 
54550000 


54590000 
§4600000 
54610000 
54620000 
84630000 
34640000 | 
54680000 


§4660000 


BEGIN WRITECOCWRITEL*IJeFCRLF)4 IF OUTPUT. THEN; 


oom bi acnnccce 
~ §4450000 


54470000 


sass 
— -§4570000 ~ 
_ 54580000 


IF INPUT THEN 
REGIN CLEARCBUFOUT#10)3 
WHILE CHARCOCREADECIL¢DCSIZE*1) eW)el1eC) = "#" OO 
BEGIN 
WRITECOCWRITEC*IsFAGAINIS | 
IF NOT OUTPUT THEN GO TO EOF3 
IF NOT INPUT THEN GO TO FOF3 
ENDS 
MOVECDCSIZEsDCREADE #Je0sINSTL¥I90)3 
MOVE CBOWNCSIZEsBUFOUTL #1» 02 INSTLCDCSIZEWIsDCSIZE.C)S 
INSTSTZE ¢« DCSIZE3 
1 ¢ MAXC8OsINSTSIZE)3 
MVC 3eSTOPPERSS#INSTOCI W]e leC)3 
LSTCINST)3 
END ELSE GO TO EOF 
END DATACOMM INPUT ELSE 
CBRGING oe 
TF NOT BUFFERFULL THEN 
BEGIN READCPROGRAM,10sBUFFER(C*}) CEOFI3 
BUFFERFULL * TRUES 
Roce MENT oa Pa ay ce. 
TF CONVERTF THEN CONVERTCBUFFER)S 
LSTCBUFFER)3 . 
MOVECFIELDSIZEsBUFFERE J 202 INSTL #12093 
BUFFERFULL « FALSE; 
INSTSIZE « FIELDSIZE; 
READ CPROGRAMs 10, BUFFERL +} ) tEoFy3 
BUFFERFULL «# TRUES. 
WHILE CHARCBUFFER(*#}],0) = "e" DQ 
BEGIN IF CONVERTF THEN CONVERTCBUFFER)3 
LSTCBUFFER)3 
MVCL*eBLANKs 7sBUFFERD #12093 
MOVE CFIELOSIZEsBUFFERE #1 0s INSTLINSTSIZE, W]e INSTSIZE.C)3 
BUFFERFULL * FALSE} 
INSTSIZE © INSTSIZE + FIELDSIZE3 
READCPROGRAMs10sBUFFER(*)) CEOFI3 
BUFFERFULL ¢ TRUES 
ENDS 
MV ¢3 STOPPER#Ss INST EINSTSIZE4NJ¢INSTSIZE4CI) 
a ENDS 
GOTINST? os He 
TP SLASTLABEL = 0 THEN IF CAROTYPECINSTC*)) 2 5 THEN 
BEGIN 
Tp NOT SYMBTABLSETUP THEN INITIALIZESYMBTABL3 
SLASTLABEL #* ENTERSTCSCANCHARC® ")" "sSINSTL #150) 
INSTCH]2O0s"INST™)3 
TP INSTNUM. & 0. THEN ENTRY © SLASTLABELS 
PTR «© 23. 
GO TO LOADS 
ENDS 
GO TO INSTBRECARDTYPECINSTC#I)33 — 
SYNTAXERR( 229033 
COMMENT yNRecogNEZeD INSTRUCTION. TYPES 
60 TO RDS 
CONTROL: 
PROCESSCONTROLCARDCINST)3 


foes So : i ? : j : : : : 1 ee ! : i 
aad : i : H ! é hen ta i : i : i ; : : ooh 
= f 3 mae © t ¥ Bly : i + ‘ 2 Ue eee ged P ? : r st 


Saegie Teshvess Tears, int. 7 MEE 
soe’ aa i : 8 i . 4 : : i et . : is i ears : : i zt 
: i i : : : : : epee i i i i i : : ; 
H : j i H 


-§4670000_ 


34680000 
84690000 


54720000 


..54730000 


§4740000 


54750000 
54760000 
‘$4770000 


54780000 


. 34790000 


54800000 
54810000 


54830000 


54840000 . 
84850000 


54860000 
34870000 


__§4880000 


54890000 


'§4900000 
84910000 | 


34920000 
54930000 


54940000. 


54950000 


GQ To RD3 


CONT3 


54700000 | 
54710000 


MESSAGEO¢(15)93 


_MESSAGETTOC15)5 
COMMENT TLLEGAL CONTINUATION="IGNORED3 


GO To RD} 


LABELED: 


tl ¢ ENTERSTCSCANCHARC™ *," w,INSTL#)> Os INSTE W]e Os"INST")3 


IF NEXTSEGMENT = 0 THEN NEXTSEGMENT « 3 
IF. &TF AND GTS THEN GO TO A$ 

AA © NEXTSEGMENT & "/8'%f24:3624273 

Jo TF GT THEN 3 ELSE 43 


_ STORECHARS( JsAAs8y)3 


84820000 


IF NOT GTS THEN 
BeGIN SLoe « PTR © 33 
MVC2sSLO0C»6sCODECMARKER, WJsMARKER C4333 


END? 


| IF NOT GTF THEN 


At 


84960000 | 
54970000 | 


54980000 
54990000 


55000000 | 


- §5010000 


'§5020000 


55030000 
55040000 
§5050000 


535060000 


BEGIN FLOC + PTR = 33 

Mv C2sFLOCs6eCODELMARKER, WIsMARKER,C45)3 
END3 

GT ¢ GTS « GTF ¢ TRUEJ 


AB & STRINGCPTRs SLASTLABEL)3 
MVC2sNEXTSEGMENT*6sCODEL(O}/0)3 % FILL IN LOC OF NEXT SEGMENT. 
_NEXTSEGMENT «© OF  &% RESET FOR NEXT SEGMENT 


MOVE CPTRsCODEL* I] 20eF IRSTCHARCAB) )3 
VALUESLASTLABELJ.LOC + AB; 


_ IF PTR > MAXINSTSIZE THEN MAXINSTSIZE © PTR3 


% CHECK WHETHER LABEL HAS OCCURRED BEFORE! 
IF CAACVALULIJ) eCH 2 3 THEN” 
“BEGIN MESSAGEOQ(16)2 
MESSAGETTIC 22s INSTNUM)3 
MVC2eFIRSTCHAR(CAA )sNEXTSEGMENT? 6953 
_ MVC22NEXTSEGMENTS6sCODELO}20)3 
END ELSE eODECO} ¢ NEXTSEGMENT «© 3 


PTR « 23 


SL ASTLAREL rane) 


G60 To LoaDs 


UNLABELFD? 


55070000 


§50980000 


—§§090000 


55100000 
55110000 


_. 35120000. 
55130000 | 
--§5140000 
85180000. 


55160000 
§5170000 


55190000 
§5200000 
$35210000 
$5220000 
55230000 


AE. 6TS AND GTF THEN 

BEGIN MESSAGEO(17)3 
MESSAGETTIC16# INSTNUM) 3 
MESSAGES * MESSAGES + 13 
END} 


LOAD! 
MARKER « PTRE 


55180000 


AA © INSTNUM & QMARKE301423613 


USTORECHARSLS +4452) 


SLOC ¢ FLOC ¢ 03. 
STORECHARS(5s023)3 
COMPILECINST)3 
INSTNUM © INSTNUM # 13 
60 To RD3 


EOF: 


% EITHER EOF ON PROGRAM FILE OR NO INPUT FROM TELETYPE? 
IF PROGRAMFROMREMOTE THEN ¥ NO INPUT FROM TELETYPE? 
BEGIN 


. Pats Bysiede Paras, aa. 2 nage 
‘ F : P : : : : : : : et ‘ 
i : eee . i i : : : : ‘ : i 


i 
i 
i 
| 
i 


i 
; 


- -§5240000 


55250000 
§5260000 


55270000 


55280000 
§5290000 


~§5300000 


§5310000 
55320000 
§5330000 


55340000 


55350000 
§5360000 


55370000 


55380000 


... 33390000 


55400000 
55410000 
55420000 


~$5430000 


55440000 


55450000 _ 
55460000 
55470000 


55480000 


65490000 


§5500000 


_.33510000 


55520000 


$5330000 


55540000 


55550000 ~ 


§5560000 


35570000 
§5580000 


55590000 


§5600000 - 


55610000 
55620000 


_,. §5630000 | 
~~ §5640000 
55650000 


55660000 


55670000 
55680000. 


55690000 


~  Bbe8be00- 
-. §5710000 | 
857200000 
55730000 
§5740000 
53750000 
 §§760000 
 -§5770000 
535780000. 


55790000 
55800000 


WRITE CDCWRITEC*] »FNOINPUTs QMARK )3 
tr NOT OUTPUT THEN GO TO TTLOSTS 
IF NOT INPUT THEN GO TO TTLOST3 
WHILE J@CHARCDGREADL#]2SKIPCHARC”® ",DCREADEC *3,0)) = *Y¥" 
AND J #4 "N" DO 
BEGIN WRITECOCWRITELC*I]+FYESORNO)3 
IF NOT OUTPUT THEN GO TO TTLOST3 
IF NOT INPUT THEN GO TO TTLOST3 
ENDS - 
GO TO IF J ® “Y" THEN RD ELSE TTLOSTs 
END} 
IF LOADERLEVEL > 0 THEN % EQF FOR SUB*PROGRAM FILE 
BEGIN 
Ip INSTSYZE > 0 THEN GO TO GOTINST 
% LAST CARD HAS BEEN COMPILED? 
GO TO FIN} 
END; 
% EOF AT LEVEL O8 
IF INSTSYZE > 0 THEN GO TO GOTINST3 
% NO CARN IN INST£*I*"END CARD MISSING, 
WRITE CPRINT» MESSAGEL 2533 
EXECUTE * FALSES — 
GO TO FINS 
TTLOST:. 
— MESSAGEOC9)3. 
EXECUTE « FALSE; 
GO To FIN3 


EN! _ & END CARD ENCOUNTERED? 


IF. SLASTLABEL. #0 THEN = FINISH UP LAST INSTRUCTION? 
BEGIN DEFINE DUMMYs#3 
IF NOT CGTF. AND GTS) THEN | 
BEGIN I « IF GT THEN 3 ELSE 43 
Te NEXTSEGMENT = 0 THEN 
BEGIN AA ¢ "/#E"3 
I « If GT THEN 2 ELSE 33 
J «23 
oe ENA ELSE 
# PATCH==TIE TO NEXT SEGMENT 
BEGIN I « IF GT THEN 3 ELSE 43 
AA ¢ NEXTSEGMENT & Tote eee 
vw 3Y 
END; 
- STORECHARSCI»AAs8"1)3 
IF NOT GTS THEN 
BEGIN SLOC « PTR & J3 
MOVEC 29SL0C 26s CODECMARKER, W}sMARKER,C+3)3 
ENDS. ee 
IF NOT GTF THEN. 
BEGIN FLOC ¢« PTR = V3 
MOVE C2sFLOC s 6» CODEC MARKER, W)eMARKER, C+5)3 
END} 
‘ENDS. 
TEMP ¢ STRINGCPTR» SLASTLABEL D4 
MOVE CPTRs CODED #1] 20sFIRSTCHARCAA) 23 
VALUCSLASTLABEL],LOC © Aa3 
SLASTLABFL « O3 
IF PTR > MAXINSTSIZE THEN MAXINSTSIZE ©¢ PTR3 


a i : d H : : : : i i : : 


} 


fone: Business Ferentz, bac oe ex 
‘ : i ee ieee | : the 8 | ‘ aa : i . i i i 
: : i i i : : : : ee 


i 


55810000 


55820000 
55830000 
55840000 


~§5850000 


55860000 


55870000 


$5880000 
55890000 


.§5900000. 


55910000 
§5920000 


33930000 


53940000 
55950000 
55960000 
§5970000 
55980000 


55990000 | 


56000000 
56010000 


§6020000 


56030000 
56040000 


- §6050000 


56060000 


86070000 
86080000 


~ §6090000 | 
56100000 
~ §6110000_ 


56120000 
56130000 


$6140000 


56150000 


56160000 
- §6470000 


~ 36180000 


56190000 


56200000 | 
§6210000 
36220000 

gegaegeg | 


56240000 


56250000 
56260000 


— §6270000. 

- §6280000 

— §6290000 ~ 
56300000 


56310000 


56320000 


56330000 
56340000 
36350000 


— §6360000 


56370000 


ENDS 
% FIND ENTRY POINTs IF ANY# 
P © & + SKIPCHARC™ "sINSTED 15473 
IF P < INSTSIZE THEN 
BEGIN TEMP « P3 ; 
P © P + SCANCHARC™ ",QMARKsINSTLIP.WI1sPeC)3 
tp P > INSTSIZE THEN P « INSTSIZE3 
ENTRY ¢ ENTERSTCP*TEMPsINSTE*JsTEMPs "INST" D3 
‘END? 
INITIALIZE: IF LOADERLEVEL = 0 THEN % FINISH UP LOADING3 
BEGIN ALPHA ARRAY SPECTALINST(CO242;3 
IF NOTCTOEOFL2] OR PROGRAMFROMREMOTE) THEN 
BEGIN MOVEC80sBUFFERL*Js0,NEXTRECORD(E 25 #13093 
LOOKrr2] « TRUE3 
END3 
% CHECK FOR NON@WEXISTENT LABELS! 
IF PRINTMESSAGES THEN 
FOR 1 © oO STEP 4 UNTIL STRMAX DO 
FOR J ¢ 0 STEP 1 UNTIL STWMAX DO 
IF CAA*NAMTABLETeJ1)0f1#2) = 3 THEN 
IF VALTABLEIsJ31.8 < 9 THEN 
BEGIN WRITECBUFOUTEC #1 ,MESSAGEL501)3 
MOVECMINCAA, 8,115) sFIRSTCHARCAA)> BUFOUTE #321995 
WRITECPRINTs17*BUFOUTE +] )3 
ae END; s 
IF INFORM THEN Spied 
IF VALUCENTRYI,S $ 10 THEN 
BEGIN. MESSAGEO(1B)3 TUESSAGETTOC18)5 
EXECUTE « FALSE} 
60 TO.FIN? 
END CHECKING ENTRY POINTS 


INTTIALIZATION OF SPECIAL SNOBOL IDENTIFIERS: 

RETURN INSTRUCTIONS . 
-@ ENTERSTCOsWORDSE #15542 "INST™)3 
F VALULCT],.S # 0 THEN 

BEGIN FILL SPECIALINST£C#] WITH nerodadssodoendeniuase% ROOO00"} 

SPECTALINST(C03.€188123 ¢ INSTNUMS 

AA © STRINGCA19T)03 

MVC11sSPECTALINSTC*]s02FIRSTCHARCAA) 23 


VALULTI] «LOC © AA 
END? 


FRETURN INSTRUCTIONS 


: ee ENTERSTC7*NORDSL #1 2535" INSTHDS 
IF VaLUCT?,S 3.0 THEN | 
_. BEGIN: FILL. SPECTALINST(#] WITH 0€T00001400000000000e"0,Fococo"; 
SPECTIALINST([O]e£18212) * INSTNUM3 
AA ¢ STRINGCL1se193 
MVC1isSPECTALINST£*] sOsFIRSTCHARCAA) 93 
VALUCTIeL OC * AA} 
ENO; 


% 
X INITIALIZE QUOTE TO "HK 
% 


ee 


@ ASoore Bustagat Fess, int, 32 hea . 
i 


56390000 


56400000 


56410000 
56420000 
56430000 


56460000 


56470000 


56480000 
56490000 
56500000 


§6520000 


86380000 


56440000 | 
§6450000 


eT rit tt ae 


_.. 36530000 | 
~ -§6540000 


56550000. 


56570000 
56580000 
56590000 


56620000 


56640000 
56650000 


56700000 
86710000 


..56560000 


S88 30000 


56660000 — 
56670000 
56680000 
—§6690000 sg 


56720000 


§6730000 


36740000 
86780000 


56760000 


86790000 


— §6800000 ~ 
§$6810000 
§6820000 


56830000 


_§$6770000 
536780000: 


§6840000 
 -§6850000 


56860000. 


“"B6B70000 


56880000 
§6890000 


56970000 


§6930000 
56940000 


~- §6900000 
— §$6920000 


% 


I ¢ CuCabas (a DHORDET? 1 tance avers; 
VALULI].LOC « AA © STRINGC19193 


MOVE C12 QUOTE s 7eFIRSTCHARCAA)D 3 
% 
% INITIALIZE Q@MARK TO ILLEGAL CHAR 


3 | 
“YT © FENTERSTCS»WORDSE #121405 "SYMB")3 


VALUEI2.L0C « AA * STRINGC1s123 
MOVE CL e QMARK se 7eF IRSTCHAR(C AA) )4 


2 
: INITIALIZE ARROW TO "«" 
e e ENTERST(S+WORDSE#15145,"SYMB") 5 


VALULI1.LOC « AA © STRINGC1s1)3 
MOVE CLs ARROWs 7oFIRSTCHARCAA) D3 
% 


i THE, INPUT STRING READ GIVES THE REST OF THE FILE PROGRAM, 


t € ENTERSTCGsWORDSE*161500"SYMB™)S 
VALUCTI],1OUSE ¢ 23 
IOCTI «© O & 2 CFILNG & 1 CIOTYPE & 2 CIOUSE3 
TOUSAGEL2) « I & 2 CIOUSE & 1 CIOTYPES 


~§6600000—s_-& 
56610000 _ 


; INPUT STRING CARD 1S FROM THE CARD*IMAGE FILE NAMED CARD, 


7 e ENTERSTC4sWORDSE #191749 "SYMBN)} 


VALUCTI].TOUSE ¢ 33 
1OfCT) «© Oo & 1 CFILNO & { CYOTYPE & 3 CINQUSE; 


— TOUSAGEL12 + [ & 3 CIOUSE & 1 CIOTYPES 


x ono : 
% PRINT 1S QUTPUT TO THE LINE PRINTER FILE PRINT 


1 * ENTERST¢S*WORDSE #11545 "SYMBM)3 
PRINTLOC * 13 % SAVE VALUE FOR TRACE FUNCTION 


TOSPACEL3) « 13 


VALUCI7,1TOUSE « 13 
TOCLI] ¢ O & 3 CFILNO & 1 CIOTYPE & 1 CIOUSE3 


“IQUSAGEL3) « I & 1 CIOUSE & 1 CIOTYPES 


a | 
% PUNCH 18 OUTPUT TO THE CARD PUNCH 


t* ENTERST(SsWORDSE* 141599 "SYMBM)3_ 


VALUCTI.LIQUSE ¢ 13 


IOCT] «© O & 4 CFILNO & 4 CIOTYPE & 1 CIOQUSES 
asa ¢ 1&8 1 CIOUSE @ 1 CIOTYPE3 


¥ LOOK IS NON*READING INPUT FROM THE REST OF PROGRAM, 


; + ENTERST(4sWORDSE#1/1642"SYMB")3 


VALUETJ.IOUSE « 23 


IOCI} « © & 2 CFILNO & 2 CIOTYPE & 2 CIOUSE; 
x 


—  & SYSPOT#"SFE CDC 3600 SNOBOL - 


x 

le ENTERST¢C6sWORDS([*#191682"SYMB")3 
VALULI],1OUSE ¢ 13 

TOLTY ¢ © & 3 CFILNO & 5 CIOTYPE & 1 CIOQUSES 


: = ee i pee i E oad A H em oe : : : ' : i aa 
OSs an an pe, od bane % : i 2S i i ° : § : 7 ; fe See Pes or es 


eee VS aes 


eeeeoeeeeeweweeeeeenwneeeeee 


i 


i 
i 


--§6950000__ 


oe 
56960000 & NEWOYSK IS OUTPUT TO THE NEW DISK FILE NEWDISK 
56970000 1 © ENTERSTC7T*WORDSE*¥]5178s"SYMB" D3 

-§6980000  VALUCII.IOUSE « 33 

§6990000 — TOL] «© 0.8 5 CFILNO & 1 CIOTYPE & 3 CIOUSE; 

57000000 TOUSAGECS] «+ I & 3 CIOUSE & 1 CIOTYPES 

~§7010000 i . 

57020000 % INITIALIZE TELETYPE 1/0 STRING? 

57030000 % I/0 ON TELETYPES 1S THROUGH THE STRING TELETYPE» WHICH 

37040000 $=& FAILS ON INPUT IF THE WAITING TIME IS EXCEEDED» AND FAILS 
§7050000 Z ON OUTPUT IF THE WAITING TIME IS EXCEEDED OR IF THE 
570460000 % BREAK KEY 1S USED. 

57070000 I © ENTERSTCBsWORDSE #15965 "SYMB")3 

57080000 VALUCI],1OUSE « 33 

57090000 IOlLT) * O & O CFILNO & 3 CIOTYPE & 3 CYOUSES 
5$7100000 oR 

§7110000 FILL LOSTZEL#] WITH 80,802132280,803 

37120000 | FILL RECORDE*] WITH "Lewiswle*ismiowiswisrienii 
§7130000 oo. : _ 

57140000 FIN 

57150000 IF BEATH THEN EXECUTE « FALSE} 

87160000 END LOADER: ~ 
87170000 OPO TT TETTTTTC LET ET ETT TET LTTE TREE TETTTL LTTE TTT LEE TTT tieire 
87180000 Beva eee ew LOADL TBRAR Y 9 oto te IOI RII II II III IOI II dk doit i kat 
57190000 2 THIS PROCEDURE LOADS A LIBRARY ("OBJECT") FILE CREATED BY A #LIBRARY 
57200000 % CARD DURING AN EARLIER RUN. 

§7210000 PROCEDURE LOADLIBRARYCMFIDeF ID); 

57220000 VALUE MFIDs FID3 | 

~. §7230000 ALPHA MFID», FIDs 

~ §72460000 BEGIN INTEGER Te U3, 

- §7250000 REAL Lt» L2» L33 
57260000 BOOLEAN Bis B2s B33 
57270000 ALPHA ARRAY Xf0!:7]3 
57280000 MONITOR INDEX 
57290000 LABEL FAIL» FINS 
§7300000 FILE IN LIB OISK SERIAL (€1526260)3 

-SRRLO000 Re ee 
§7320000 INDEX « FAILS 
57330000 FILL LIB WITH MFID» FID: 

573940000 SEARCH(LIBs xl e323. 

57350000 IF ¥f01. 8 0. THEN 
57360000  —s- BEGIN MESSAGEOC11)3 

—§7370000 — MESSAGETTOC1193° 
57380000 GO TO FINS 
57390000 END} 

87400000 READC(LIBs4-B8UFQUTE*)) CFAILIFAILY 
57410000 WRITECKE*I+FLIBOsENTIERCVERSION))3 
57420000 % TEST VALIDITY OF FILE*"SHOULD MATCH FLIBO! 

-§7430000 IF NOT FOC32*RUFOUTE*1209XC4)50)- THEN & NOT A VALID LIBE FILE 
57440000 BEGIN IF EQC20-BUFOUTEC #3 s0-Xf*#120) THEN % CREATED BY EARLIER VERSION 
57850000 BEGIN WRITECPRINTsFLIBOLDLP)3 

_ §7460000 WRITECDCWRITEC*IsFLIBOLOTT)3 
57470000 IF DATACOMF THEN IF QUTPUT THEN 
57480000 END3 
57490000 GO To FINS 
57500000 END 
57510000 READCLIBsFLIBIsSCATTERNOsMAXINSTSIZE Biel i»B2el2eB3eh3) CFAILEFAIL I; 
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§7520000 


§7530000 
57540000 


57550000 


57560000 
57570000 


57580000 


57590000 
§7600000 


57610000 | 


57620000 


$7630000 
--§7640000 


57650000 
57660000 


__ 87670000 F 
FOR 1-« 0 STEP 1 WHILE USEDROWEI] DO 


57680000 


-— §7690000° 
87700000 — 


$7710000 
37720000 
57730000 


57740000 
_ 57750000 
57760000. 
57770000 


IF SCATTERNG > 15 OR MAXINSTSIZE > 8181 THEN GO TO FAILS 
IF Bi THEN BEGIN CPULIMITEXISTS¢TRUE? CPULIMIT¢L13 END3 
IF B2 THEN BEGIN IOLIMITEXISTS*TRUES IOLIMIT¢L23 END} 

IF B3 THEN BEGIN RULELIMITEXISTS*TRUES RULELIMIT¢L33 ENDS 


READCLIBsFLIB2sENTRY*FOR TeO STEP 1 UNTIL 15 00 ear OST el eA UerNue: 


CFAILIFAIL IS 
IF ENTRY > 4095 THEN GO TO FAILS 
READCLIB»sFLIB3eFOR 10 STEP 1 UNTIL 15 DO NEXTCELLCIJICFAILIFAILIS 
FOR ¥ « © STEP 1 UNTIL 15 DO 
IF USEDSTEIY THEN 

FoR J ¢ 0 STEP 2 UNTIL 254 DO 
READCLIBesFLIB4sNAMTABLE T+ J]*+VALTABLE I>» JIsTOTABLE Tad] 
WAMTABLE Is J+i le VAL TABLE Is J+i J] TOTABLE ITs JtL I] CFAILSFAILI3 

READ(LIBsFLIB5+FOR 1¢O STEP 1 UNTIL 31 DO USEOROWEIJ)CFAILIFAILI3 


READCLIBsFLIBO,FOR I¢0 STEP 1 UNTIL 31 pO OPNTREIVICFAILSFAILI3 


FOR 1 « O STEP 1 UNTIL 31 DO YF DPNTRET) > 8183 THEN GO TO FAILS 


“FOR J ¢ 0 STEP 6 UNTIL DPNTRCIJ.W DO 

BEGIN READCLIBsGeXCw)CFAILIFAILI3. 
IF J < 1020 

THEN MOVEWDSC6eXf#]eDATALI eJ)) 

ELSE. MOVEWDSC3XEWIsDATALI sJ193 


END 
SYMBTABLSETUP © TRUE} 
CHECKSYMBTABL3 | 
GO TO FINS 


$7780000 % 


57790000 


57800000 
87810000. 
- §7820000 

57830000 


57840000 
37850000 


87860000. | 
PROCEDURE LSTCAD3 


§7870000 
57880000 


‘87890000. 


§7900000 


57910000 % 


57920000 


sae 57930000 
57950000 


87960000 
57970000 


— §7980000 
- 87990000. 
— -§8000000 | 


58010000 


58020000 


_.§8030000 


§8040000 


88050000 
_ 88060000 


58070000 
§8080000 


JA! MESSAGEO(5)3 


-MESSAGETTO(5)3 
DEATH «- ‘TRUES 
FIN? | 


‘END. LOADLIBRARYS 


Eeeeweeek OADLTBRARY taketh eee REE ee eek ee he kK kk 
JHA EGIL SUI ISIN II IUISIIOIISIGII IG UICIUIGIOICIIFIOICIOI ICICI TOT iH Si i tt 


£ LST LISTS THE CARD* IMAGE IN AC*), 


ALPHA ARRAY ALO13 
BEGIN. 
INTEGER 13 


TF CAROTYPECACW]) 2 4 


THEN WRITECBUFOUTC#JsFI7¢INSTNUM) 
ELSE WRITECBUFOUTE* I ,FBL 3 
FOR I «© LISTSPACES STEP =1 UNTIL 1 DO WRITECPRINTSFBLD3 
MOVECBOsALH120,BUFOUTL # I] 2893 
IF LSTF THEN WRITECPRINTs 12sBUFOUTE«))3 
IF PUNCHF THEN WRITECPUNCHs100AC#I)3 


IF DCLIST THEN IF DATACOMF. THEN 


BEGIN FOR I ¢ 8 STEP “1 WHILE I 2 0 AND 
EQUAL (C8sBLANKSsOeBUFOUTEI3*0) DO} 

WRITECDCWRITEC* Ie FVCRLF 2 8xtol 23 

MOVECBXIsBUFOUTE *] 20sDCWRITEL*I20)3 

IF OUTPUT THENS | 

‘ENDS 


‘END LST3 
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idoors Busioess Forint, int. a6 is 
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58150000 | 


_. 58240000 


88090000 


§8100000 
58110000 


38120000. 


58130000 
58140000 


58160000 
58170000 


58180000 


§8190000 


$8200000 
§8210000 


58220000 
§8230000 


58250000 


-§82460000 
58270000 | 


58280000 
38290000 


38300000 


...98 360000 
§8370000 


58540000 
— §8550000. 
58560000” 
-§a570000. 
58580000 


5 


§8310000 


58320000 


_ §8330000 


58340000 
58350000 
§8 380000 


58400000 
58410000 


_. §8420000 
58430000 


58440000 


 §8450000 


58460000 
§8470000 


38480000 
58490000 . 
58500000 
_ 88510000 _ 


58520000 
58530000 


58890000 


58600000 
58610000 


58620000 


58630000 


58640000 
§8650000 


PROCEDURE MESSAGEOCI)3 
VALUE I3 INTEGER I3 


BEGIN SwITCH FORMAT MSGO « 
—("*¥PROGRAM SEGMENT TOG LONG**INSERT DUMMY LABEL AFTER LAST "s 
"LABEL AND BEFORE THIS INSTRUCTIONs™)e - £00 
(//"a*DEFINE FAILURE*"ERROR IN LOCAL VARTABLE LIST™)» 201 
C//"#*DEPINE FAILURE@*"ERROR IN FIRST ARGUMENT)» x02 
CA/"eeDEFING FAILURE=*NO € IN FIRST ARGUMENT"), 203 
C//* ae DEFINE FAILURE*"*NO FIRST ARGUMENT)» 4046 
(//™s*UNABLE TO READ LIBRARY FILE)» %05 
C/"THE NAMES IN USE AREI"/)s %06 
CA"THE LABELS AREtM*/ De 07 
C/"*eeDUMMY EMT*"MSGOLBIN) > . 
C//*aaTELETYPE LOST@"QUITTING se") e %09 
C//"a*# INVALID PARAMETER," )>» %10 
C"**P ILE NOT AVAILABLE"), . %11 
C/"*eDUMMY FORMAT MSGOCL21"//)>» %12 
CYeePUNCTION ALREADY DEFINED@"FORMER VALUE LOST")>» %13 
CA/"eeSYMBOL TABLE FULL"), 414 
CTewTLLEGAL CONTINUATION CARD") >» R15 
C'te*_L ABEL ALREADY DEFINED*=FORMER VALUE LOST"), %16 
_("weTHYS STATEMENT CAN NOT BE REACHED)» %17 
C///MHeENTRY POINT. UNDEFINED ."///)s %18 
C"#*MESSING QUOTE") >» Z19 
CM eeUNRECOGNIZED. CONTROL CARD" )>» 220 
C™**#MISSING PARAMETER"). 24 
Ce ATTEMPTED RETURN WITH NO FUNCTION CALLED"). 220 


C/MeeEND FORMAT**"MSGO")3 
WRITECPRINTsMSGOLTI)2 


e END MESSAGEO3 — 
-.§8390000 ° 


TET EC CILLA. LS bk ih ddA kk ke ak Le 
PROCEDURE MESSAGEAI CI »PisP2)3 
VALUE Ys Pis Pas 


INTEGER Ip P23_ 


ALPHA P43 


BEGIN SWITCH. FORMAT. MSGAT ¢ 


CA/ ae *NONSNUMERIC ARGUMENT TO os A2e"C) IN STATEMENT "eT 4), 
C//"HHEND FORMAT**MSGAI% sA6e T1003 
WRITECPRINTsMSGAICIT I] sPisP2)3 

END MESSAGEAI3. 


LETTE TTC TE OTE TTCEECEE CLE TTT TELL 


PROCEDURE MESSAGEICIOP)5 


VALUE fs PA” 


INTEGER Ip PS 
BEGIN SWITCH FORMAT MSGI « 

(//% 4 INTEGER OVERFLOW IN STATEMENT 516)» £00 
CAPM ae ATTEMPTED EXECUTION OF INSTRUCTION WITH SYNTAX ERROR#=",» 
 MSTATEMENT “el6) a 01 
C//S##PATLURE OF GO=TO PART IN STATEMENT "sI6)>. %0 
C//a#ATTEMPTED REPLACEMENT WITH STRING REFERENCE USED IN STRING" 

* VARIABLE**STATEMENT "sI6/X10s "REPLACEMENT NOT ATTEMPTED ."//) 2%03 


C//*eePROGRAM LIMIT REACHED IN STATEMENT "“>1I6)> %04 
C"eecPU TIME LIMIT = "sT125" SECONDS," )>» %05 
C"eet/O TIME LIMIT = "+1125" SECONDS,")> %06 
C"eHRULE LIMIT @ "9T12)9 %O7 
C//"e*ILLEGaAL SECOND PARAMETER TO CLOSE IN STATEMENT 516). %08 
C//"eeDEFINE FAILURE IN STATEMENT 57695 %09 


@ @ @ @ Saetg Hatcuss Parnas ines os 
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Be 
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od 


§8660000 


88670000 


58680000 
58690000 


- §8700000 
§8710000 


§8720000 


— §8730000 


58740000 
58750000 


~ - -§8760000. 


58770000 


--§8780000 
58790000 


§8800000 


$8830000— 
§8840000_ 


58850000 
58860000 
58870000 


~ §8880000 


58890000 


.$8900000 - 


58910000 
58920000 
56930000 


88960000 


88980000 
58990000 


—§9000000. 


§9010000 


~§9020000_ 
§9030000 


§9040000 


59060000 


- §9070000 
~$9080000 


59090000 
59100000 
59110000 


59160000 


§9190000 


- §$9200000° 
59210000 


59220000 


(//"eeDUMP REQUESTED IN STATEMENT "stT6s" 3"), %10 
(//"«*FUNCTION DEPTH BEYOND SYSTEM CAPACITY IN STATEMENT "»I6)» %114 
(//"**OUT OF SPACE IN STRING STORAGE AREA™=UNABLE TO FIND ROOM FOR 


* A STRING OF “sT6e" CHARACTERS,"//)> ¥12 
C//%*ePROGRAM DIED IN STATEMENT "sI16/)> %13 
C//"#*UNABLE TO OPEN FILE IN STATEMENT “sl6s"="TOO MANY FILES ts 

ALREADY IN USE,"/)>» 44 


C7 / HEF ILEC) ERROR IN STATEMENT "oT6e"="I/0 TYPE C2ND PARAMETER)» 


58810000 | 
58820000 


* MUST BE NULL OR START WITH Moths h rh attH,Y OR THM M OM, MH) ea 
C//MH*FILEC) ERROR IN STATEMENT “pe T6e"==NUMBER OF BUFFERS (3RD "> 


PARAMETER) MUST BE NUMERIC AND 2 1" )s - 16 
C//"e#*®NON@NUMERTIC ARITHMETIC OPERAND IN STATEMENT "se I6)2 417 
—(//*aeDIVIDE BY ZERO IN STATEMENT 916). 218 
C//"*e* INDIRECT ON NULL STRING IN STATEMENT ‘ty I6)>5 219 
C//"e®PUSH®DOWN STACK OVERPOPPED AT FUNCTION RETURN IN STATEMENT ", 
T6)s %20 
— C/MeeFUNCTION REDEFINED IN STATEMENT "sI6)e 221 
(/"eeMAX NUMBER OF PARAMS & LOCAL VARIABLES IS “sI3)>s 422 


C//*e4END FORMATTPMSGIMS 11093 


WRITECPRINTeMSGICI JP )3 
END MESSAGET3 


, eliadiatataleh AeleleReiaRidictahehaieeteieRehelstelehahehelet Reiehehetebetahel 


PROCEDURE MESSAGETTOCI DS 


38940000 
58950000. 


—-§8970000 


59050000 | 


$9120000 — 

— -§9130000. 

- §9140000 
59150000 


geet E89) on. 
- $9180000 


VALUE T3 | 
INTEGER U3 : 
BEGIN SWITCH FORMAT MSGTO « 
C%S4e*ePROGRAM SEGMENT TOO LONGe™*), x00 
C Sse * DEFINE FAILURE@*"ERROR IN LOCAL VARIABLE LIST#")» #01 
CM S#eeDEFINE FAILURE*"ERROR IN FIRST ARGUMENTE")>, 202 
C8SeaeDE FINE FATLURE**NO € IN FIRST ARGe")>» 403 
C'SSeeDEFINE FAILURES "NO FIRST ARGUMENTe" >> #04 
C"<4BAD LIBRARY FILES#e"), ¥05 
C'SADUMPC) CALLEDS# ee)» 406 
tee? |GNEGOL WIPED OUT@"SORRYS2 de"), 407 
C'SFINTERPRETER STACK OVERFLOW"*STATEMENT TOO COMPLEXS##")» %O8 
C™SENUMMY FMT@@MSGTOLOTS #46" )s x09 
O"S#e*INVALIO PARAMETER)» X10 
C"SFFILE NOT AVAILABLE S#e%), £i1 
C"<AQUMMY FMT MSGTOCI2Z]*=SHOW TO SYSTEM AUTHORS, <##")>» %12 
C"S#eeFUNCTION ALREADY DEFINED="FORMER VALUE LOST¢™)» %13 
C"S4SYMBOL TABLE FULL S#e% >, %14 
CNSFTLLEGAL CONTINUATION CARDS£e")> 415 
C"SADUMMY FMT@=MSGTOLLI6 1246") %16 
C"<F2DUMMY FMT==MSGTOCL71s446")>» 417 
C'SHMENTRY POINT UNDEF INEDS4@)» %18 
_O™SAMISSING QUOTES#¢"), %19 
CW S<ZILLEGAL | CONTROL CARDS x6") » %20 
CN SEMISSING PARAMETERS Z@"), £24 
_UMS#AEND FMT MSGTOSZ 26"); ie 
IF DATACOMF THEN 
BEGIN WRITECDCWRITEL*I» MSGTOCII)3 
IF OUTPUT THENS 
ENDS 
END) MESSAGETTOS 
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PROCEDURE MESSAGETTACIsP)3 


VALUE Is P3 


fetase st Ta aes oP Scie, a 8 pay Rl % 
haces ‘ ' 1 q > : : ; j : : i j f : bated : j ; 
a : : ee eae i : ; : : j i i : : : 1 ; ! ; : 


39230000 


59240000 
59250000 


39260000 | 


59270000 
59280000 


59290000. 


59300000 
59310000 


89320000 


§9330000 
59340000 


_. 39350000 
59360000 


59370000 


39380000 
89390000 
-§9400000 
396410000 | 


§9420000 
59430000 


- 39440000 
-— §9480000 


59460000 


...§9470000.. 


59480000 
§9490000 


59300000. 


59510000 


~§9520000 
§9530000. 
59540000 


59550000 
§$9560000 
59570000 
59580000 


 §9890000 
59600000 


§9610000 


59620000. 


59630000 
59640000 


39650000 | 


59660000 
59670000 


59680000 | 
-§9690000 

_ §9700000 | 
89710000, 


59720000 


‘§9730000 


59740000 
59750000 
59760000 
59770000 


- 89780000 


59790000 


INTEGER 13 
ALPHA P3 
BEGIN SWITCH FORMAT MSGTA «© 


C"SFEND FMT MSGTA "eAGa" oF Fe") § 
IF DATACOMF THEN — 

BEGIN WRITECOCWRITEC*]sMSGTALII)S 

IF QUTPUT THEN; 

END3 


END3 
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PROCEDURE MESSAGETTAICI>PisP2)3 
VALUE Ts Pls Pas 

INTEGER Ye P23 

ALPHA P13 


BEGIN SWITCH FORMAT MSGTAI ¢ 
— CMSENON@ NUMERIC ARGUMENT TO .%eA2e"€) IN STMT “eT ee "¥e%)e X00 


CNSAZEND FMT MSGTAY “eles A6e"Seee")3 - 
IF DATACOMF THEN 
BEGIN WRITECOCWRITEL*]sMSGTAILI J sPisDIGITS(P2)»P2)3 
IF OUTPUT THEN3 
ENDS. 


END} 


GIES IE ISG IG itn 
PROCEDURE MESSAGETTICIsP)3 

VALUE Te P3 

INTEGER Ie P3 
BEGIN SWITCH FORMAT MSGTI ¢ 


CP!CSAeHINTEGER OVERFLOW IN STMT “sles S re)» £00 
C'SSAee ATTEMPTED EXECUTION OF STMT WITH SYNTAX FRROR@* "2 

STMT Ma pae She" Ds %O4 
C"S2¢e4eG0"TO PART IN STMT Me Tey” FAILEDS#e")>» 202 


C% Seek ATTEMPTED REPLACEMENT WITH STRING REFERENCE USED IN STRING "“, 


"VARIABLEs® IN STMT "sTws"<#eeREPLACEMENT NOT ATTEMPTEDS#%e")» %03 


C'SfeePROGRAM LIMIT REACHED IN STATEMENT “oTastsxe")e %04 
("CPU TIME LIMIT # “sles” SECOND SS2e"), %O5 
OC" I/O TIME LIMIT 3 “eTeet SECONDSSF Oe)» %06 
CVRULE LIMIT = "olue"S%e%), 407 
C"S#ILLEGAL 2ND PARAM TQ CLOSE IN STMT “pl ¥a"S2e%)» 208 
_C'SEMEFINE FAILURE IN STATEMENT “olay "e720" Ds %09 
-O("Se2FATAL ERROR IN STATEMENT. “eTown "gee" )» %10 


CNSAeeePFUNCTION DEPTH BEYOND SYSTEM CAPACITY IN STMT “eles ose")» ath 


A sSeeeOQUT OF SPACE**UNABLE TO FIND ROOM FOR STRING OF "alts 


OMSAEHM SAL at See") >» 200 


" CHARACTERSS##") >» #12 
C"S#%*PROGRAM DIED IN STATEMENT “stay "S27 ¥e%),5 413 
_ C8 Stee ATTEMPTED RETURN WITH. NO FUNCTION CALLED@="*STMT “pleat cxet), X14 
cre Me Lee "Stel de %15 
ON SASTMTS So Taal CANT BE REACHED, SAE") 216 
CS SANON@NUMERIC ARTTHMETIC OPERAND IN STATEMENT Beer aemeoreak £17 
C"SfHIVIDE BY ZERO IN STATEMENT “sTas"<re")s 218 
C'SFTNDIRECT ON NULL STRING IN STMT "alae "Ske", 219 
C"SZPUSH*DOWN STACK OVERPOPPED AT FCT RETURN IN STMT "pIee"%cse"), 220 
even ae RE*DEFINED IN STATEMENT “sTea"Sre") 5 Zo4 
(“Stee LABEL RE@DEFINED IN STATEMENT “ao Tue Ste"), %22 
("See eeNORMAL TERMINATION IN STATEMENT "oT ta", Sree)» %23 
C"S#MAX # OF PARAMS & LOC VARS IS “sTwe"Sse"), S24 


C"S¥#END FMT MSGTI “aluat<s¢%e")3 
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39800000. 


§9810000 
59620000 


39830000 | 


59840000 


--§98350000 
-§9860000 | 


59870000 
59880000 


59890000 


59900000 
§9910000 


59920000. 


~§9930000 


60140000 
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§9940000 


—§9950000 | 
59960000. . 

-§9970000 

39980000. 
59990000 


60000000 


_ §0010000 - 


60020000 
60030000 


- 60080000 - 


60080000 
60060000 


_ 60070000 


60080000 


60090000. 
60100000 
60110000 


60120000 
60130000 


60180000 
60160000 


~ 60170000 | 


60180000 


9190000 3 
60200000 


60210000 


60220000 


60240000 


0250000 
"60260000 

60270000. 
60280000 | 


60290000 
60300000 


69310000... 
60320000 


60330000 


60340000 


60350000 
60360000 


60230000 | 


IF DATACOMF THEN 
BEGIN WRITECDCWRITELC*I¢MSGTICIIsDIGITS(P)»P)3 
IF QUTPUT THEN3 
END3 

END} 


Mewes eMESSAGE PROCEDURES te te te i ie ee ae a He ae He aS te II i te te 


hk te te ke eM TN ie tek ie ie ae tee ide tee et OR ee eT TREE IKE EERE ENE EE KHER ERR A 
INTEGER PROCEDURE MINCAsB)S VALUE AsB3 INTEGER ApoB 

MIN ¢ TF A < B THEN A ELSE B3 

Bee te ated eM TN ei Iii fede ie TOR iI II SIO I SITIO IIR IOI II ICR tek 
Baie O NNN ii Ru RGGI IG ISIE EI II CIISIGIOIOGI SIG TOI ITI IOI Tt iets 


% THE STRING BETWEEN ALCP W1eP.C AND THE NEXT BLANK IS SEARCHED FOR: 


% IN THE NeTH LIST OF MNEMONICS, AND THe APPROPRIATE INDEX IS RETURNED. 
INTEGER PROCEDURE MNEMNOCNsAsP)3 

VALUE N3 

INTEGER Ne PS 
ARRAY ALOV3 


BEGIN LABEL FIN? — 


INTEGER Is J3 aS a oe ' 
ALPHA AA} 
IF TeSCANCHARC™ "p"e",ALP,WIeP,.C) > 6 
THEN MNEMNO «& 0 ELSE 
BEGIN AA,© 03 
MVCTSACP WI» PP Cells 6913 
MA e© AAS 
FOR JeMNEMONICENSO} STEP *1 UNTIL 1 00 
lf AA = MNEMONICENs J] THEN 
BEGIN MNEMNO ¢ J3 
P «P+ 33 
60 TO FINS 
‘ENDS 
MNEMNO « 03 
END} 
FIN: 
END MNEMNO3 


Bik th ENE WCE LL te 8 Uk ea RR Ee EH EEE EEE REAR RE EE RE 
% NEWCELL RETURNS THE ABDRESS OF AN AVATLABLE SYMBOL TABLE CELL**USING 

% ROW f IF POSSYIBLEs CELLS GIVEN BY NEWCELL ARE “PERMANENT® IN THE 

% SENSE THAT RETURNCELL IS NEEDED TO RETURN THEM TO AVAILABLE SPACE. 

% COMPARE TEMPCELL? WHICH RETURNS A CELL THAT WILL ONLY LAST UNTIL 

% THE END OF THE INSTRUCTION 

ALPHA. PROCEDURE NEWCELLCID3 

VALUE 13 INTEGER I3 

BEGIN LABEL ROWFULL»s RETURN 

INTEGER C3 


‘IF NEXTCELLEI) = 0 THEN GO TO ROWFULLS 


C # NEXTCELLEID 
NEXTCELLEI] © NAMECCI¢LINKS 
GO TO RETURN} 
ROWFULL! FOR I ¢ 0 STEP 1 WHILE I $ 15 AND USEDSTEI}) 00 
IF NEXTCELLEL] # 0 THEN 
BEGIN C « NEXTCELLEII3 
NEXTCELLET] # NAMECCIALINK3 
GO TO RETURN} 
ENDS 
IF 1 € 15 THEN 


ad fAgdie Bvt horas lat as yeavde 
H i : aa Pak yedeeet f PER : i é i. ae see : : i i PPSbe en I : : H i 
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60370000 
60380000° 
60390000 


— 60400000 


60410000 
60420000 
60430000 
60440000 
60450000 


60460000. 


60470000 
60480000 


- 60490000 


605900000 
605100006 


0520000 ; 


69§30000. 
60840000. 


60880000. 


60560000 
60570000 
60580000 
60590000 
60600000 
60610000 
60620000 
60630000 


60640000 


60680000 
60660000 


60670000 
60680000 
60690000 


. 60700000. 
60740000 


60720000. 


60730000. 


60740000 
60750000 


. 69760000 


60770000 : 


60790000. 


60800000 
60810000 


60820000. 


60830000. 


Oe 40840000 
-60880000_ 


60860000 
60870000 
60880000. 
60890000 
60900000 


- 60910000 


60920000 
60930000 


BEGIN NEWSTROW(T)3 
C #0 & Y CONCSTR 
GO TO RETURNS 
ENDS. 
MESSAGEOC1493 
MESSAGETTOC14)3 
DEATH « TRUE3 
Cc ¢ 03 
RETURN? 
% IF NEXTCELLE I] > USEDCELLE I) THEN USENDCELLEI) © NEXTCELLEII3 
NAMEEC) © 03 
VALUEC) ¢« 03 
NEWCELL © C3 
% IF INFORM THEN INFORMIAC1sIsC)3 
END NEWCELLS 
Reece kee e eNO WCEL | te ee ee ee de ee eR EERE EEE KEKE KRENEK AK 
% tee tote te BNE WS TR ODW 8 8 8 oie te We ie te te ie ae ae ee RI fee IO TO IO ROI Ck ik 
‘® NEWSTROW OPENS UP ROW I OF THE SYMBOL TABLE» AND INITIALIZES AN 
% AVAILABLE SPACE LIST IN THIS ROW, 
PROCEDURE NEWSTROWCI)3 VALUE I3 INTEGER uy 
BEGIN INTEGER J3 
NAMTABLEL»OJeLINK © 1 & I CONCSTR3 
FOR J © { STEP 1 WHILE J < STWMAX DO 
NAMTABLE Ts JI.LINK © CJ#1) & I CONCSTRI 
USENSTE 1) «© TRUE 
NEXTCELLEI] © 1 & IT CONCSTR3 
END NEWSTROWS 
Bitte te tee NE WS TR (DIN ie te oe te tee ae ie ae A ee ee ee et ee TO aR tk ek ke te 
REKLEAPAANUL LARGSSEREREA SARA REMERON EAE A AERA RENE SESE AES ER ERE ETN EERE EER 
S INTERPRETER PROCEDURES | 
% NULLARGSC(N) PUTS N NULL STRINGS ON TOP OF THE STACK, 
BOOLEAN PROCEDURE NULLARGS(N)3 VALUE N3 INTEGER N3 
BEGIN LABEL RETURNS 
INTEGER ¥3 
IF SP # N 2 STACKSIZE THEN 
BEGIN 
INFORMI (4s INSTNOD3 
NULLARGS ¢ FALSES 
GQ To RETURN} 
ENDS. 
For I SPens1 STEP "1 UNTIL SP.D0 
- PSTET) « PTYPELT) +. PSIZEEEI © 03 


SP ¢ SP # N3- 


NULLARGS e TRUES 
RETURN? 


END NULLARGS3 
Rhee IHN UL LAR GS 888 A ee ee SIGIR IOI I tO IOI I te 


DPSS ENS CHUNVALA SY ESAA EN ERR AH ES ERE OR OND THOT REA ETO D NE EW EERE A EER OR 
& INTERPRETER PROCEQURE? 

% IF THe STRING VALUE OF SyYMB TABLE ENTRY st Is NON*NUMERICs 

% FALSE IS RETURNED AND VAL IS UNALTERED: IF THE STRING IS NUMERIC, 

% THE VALUE OF THE STRING IS ASSIGNED TO VAL» AND TRUE IS RETURNEDe 
BOOLEAN PROCEDURE NUMVALCSTsVAL)3 

VALUE 5T3 ALPHA ST INTEGER VAL3 

BEGIN BOOLEAN STREAM PROCEDURE NUMERICCESeLsI)# VALUE Sel 


BEGIN LABEL RETURNS 
TALLY © O83 


wie 


eeeeevvVeeeeeeene 


aims, sae. $¥ a 


! 


i 


609490000... 


60950000 
60960000 
60970000 
60980000 
60990000 


61000000 > 


61010000 
61020000 
61030000 


61040000 © 


61050000 


61060000 


61070000 
61080000 


-§1090000. 


61100000 


61130000 
61140000 


61150000. 


61160000 
61170000 


61180000 | 
61190000 


61200000 
61210000 


61220000 | 


61230000 
61240000 


~ 61280000 | 


61260000 
61270000 


61280000 
61290000 

61300000 
61310000 


61320000 


61330000 
61340000 
61350000. 
61360000 | 


61370000 
61380000 
61390000 


64400000, 
61410000 — 
61420000 


61430000 
61440000 


61450000 | 
61460000 

61470000 

61480000 


61490000 
61500000 


¢ Loc. $3 au ¢ St + 73 
IF $i 5 #0" THEN 
BEGIN TALLY © 1% GO YO RETURN ENDS 
Slt « L3 SI * SI + 173 
IF Sc = "9" THEN 
BEGIN SI « SI + 13 TALLY © S3 
TALLY © TALLY + 633 S © TALLY TALLY © 03 
END3 
SCIF SC < "0" THEN JUMP OUT TO RETURNS 
Ip SC > "9" THEN JUMP OUT TO RETURNS 
St @¢ St + 133 
TALLY « 13 
RETURN: NUMERIC © TALLY3 
: ENO NUMERICS 
ST @ VALUESTI3 


; IF NUMERICCSTRINGLOC(ST)) THEN 
61110000 
61120000 


BEGIN, IF ST.CH < 4096 
THEN READCDATALST~ Rew JeFNUMeSTeCHeST.Se VAL) 
ELSE READCDATACST.Ret] >FINTs ST WeST. CST. SsVALI3 
THIS DISTINCTION IS NECESSARY BECAUSE WHEN AN "X#" FORMAT 
CAS IN FNUM) 1S USEDs ONLY THE LAST 12 BITS OF THE NUMBER 
ARE USEDs AND A CH FIELD CONTAINS 13 BITS, ON THE OTHER 
HAND» IF "*O" ITS USED CAS IN FINT)» AND THE NUMBER GIVEN 
(IS ZERO» AN INFINITE LOOP OCCURS» SINCE © IS TAKEN TO MEAN 
"REPEAT INDEFINITELY» AND THE REST OF THE FORMAT WILL NEVER 
BE REACHED, THUSs TWO CASES ARE NECESSARY, 
_NUMVAL «© TRUES 
“END ELSE NUMVAL © FALSE 
% IF INFORM THEN INFORMIC12,VAL)2 
END NUMVAL3 
PT CL REECE TEE TOT CTE TE TEC CCL T EOE EC ET TOE CO CEL ET TTT ETT eres 
Ketek OUTRUT ew ee eee eRe a Raa RHEE EE NNR Ea ks 


% TELETYPE OUTPUT PROCEDURES 


BG De Oe ae De De 28 


BOOLEAN PROCEOURE OUTPUTS 


BEGIN 
LABEL LOOPs NOGO» BROKE» BADNEWS» EXITS 
INTEGER CNT» Qs Re TIMEX3 
BOOLEAN GPMK3 
REAL $3 
ARRAY TANKCOMBUFOUTSIZE=113 
STREAM PROCEDURE STOPPERCA)3 
BEGIN DI©AS DleDI473 DSeLIT %#" END STOPPER: 
BONLEAN STREAM PROCEDURE MOVECArB»C)$ VALUE C3 
BEGIN SI*A$ SleSt4c} DreBs TALLY*O3 
DCOUTCHARCIF SCate" THEN TALLY*13 DS*CHR)} 
 MOVEFTALLY 
END MOVES : : 
% IF INFORM THEN INFORMIICSsSTATCUSER],£9$41,STATCUSERD 6C14t4I)3 
IF NOT DATACOMF THEN GO TO EXITS 
OUTPUT « TRUES 
IF BREAK THEN 
BEGIN IF CBREAK+BOOLEANCSTATUSCSTATCUSERI41).f2681])) THEN 
BEGIN WHENCS)3 
BREAK * BOOLEANCSTATUSCSTATCUSER] +1) 4f2681})3 
ENDS 
IF BREAK THEN GO TO BADNEWSS 


: i : i { 5 : = Sea : 
: ant Scenics i i : ; : : oa : A ge artes Poly lee 2d : on 


a 
a 


eeeeevveeeneeneeee ee @© © @© © 6 


| 


61510000 
61520000 
61530000 


_ 61540000 


613550000 


613560000 


61570000 | 
61580000 


61590000 


61600000 
61610000 


61620000 


61630000 


61640000 
61650000 


_ 61660000 


61670000 
61680000 


61690000 


61700000 
61710000 


61720000... 
61730000 


61740000 


61780000 
61760000 
61770000 


_$1780000. 
61790000 
61800000 © 


61810000 


. 61870000 


eerie: 


61830000 


61840000 


61850000 


61880000 
61890000 


1900000 
61910000 


61920000 


61930000 
61940000 


61950000 


, 41960000... 


61980000 _ 
61990000 


62000000 
62010000 


- 62020000 


62030000 
62040000 
62080000 


- 62060000 


62070000 


-END?. 
STOPPER CDGWRITELCANSSIZE*1) «W293 
TIMEX ¢ TIMECY)3 
LOOP: QeCnT NO1v 8&2 ReCNT MOD 83 
GPMK « MOVECDCWRITELQI] + TANKEC1)5R)3 
MVCLsARROWs Pe TANKLG394)3 
WRITE COCOUTCSTATLUSER] 20) sBUFOUTSIZEsTANKE #3) CNOGOtBROKEI$3 
IF BQOLFANCSTATUSCSTATCUSER]21).C26t1}) THEN GO TO BROKEs 
IF GPMK THEN GO TO EXITS 
CNT « CNT + DCOUTCHAR} 
60 TO LOOPS 
BROKE! 
BREAK «¢ TRUES 
OUTPUT «+ FALSE3 
GO To ExIT3 
NOacot 
% SOME FIELDS IN. THE STATUS WORD ARE: 
% £2331} © 4 IF ABNORMAL CONDITION SENSED BY ADAPTER, 
% (24142 8 4 IF READ READY. 
% (2ati] = 4 IF BUFFER OVERFLOW CON INPUT), 
% £3081) = 4 IF NOT READY, 
S # STATUSCSTATCUSERI20)3 
EF BOOLEANCS.€30213) THEN GO TO BADNEWS; 
IF TIMECL) = TIMEX > WAITTIME THEN GO TO BADNEWSS 
IF $,023223#40 OR BOOLEANCS,C28213) THEN WHENC5)3 
% WAYT § SFCS IF WRITE DIO NOT TIME OUT 
GG TO LOOP: 


BADNEWS?! 


OUTPUT «¢ FALSES 
 FINDUSERS3 


EXIT# END OUTPUTS 


Qnuereeese= END DATA COM OUTPUT PROCEDURE saseeenssccesetesssecsssseecss 


Bek ee P OP hk ee ee IO kee ek EE EEE KE ETRE ER eke kkk 


BOOLEAN PROCEDURE POPCSTLOC)S VALUE STLOC# ALPHA STLOC3 
BEGIN ALPHA Te STI 


INTEGER I} : 
‘%1F INFORM THEN. INFORMAC2sSTLOC)S 


ST * VALUESTLOG] LINK? 

IF ST = 0 THEN POP + FALSE ELSE 

BEGIN. vaLutstLoc] ¢ T ¢ VALUCSTJ3 
IF T.CH 2 3 THEN = & RESET BACK#POINTER TO SYMB TABLE, 
BEGIN. os TeCH = 23. 

“MVE2s STLOC# Ge DATALT, ReleW)eTeC)5 


EnD3 

VALUESTLOCI.LINK VALUESTJ.LINK3 % LINK TO NEXT CELL ON STACKe 

RETURNCELL(ST)S $=  % PUT BACK ON AVSL, 
POP e. TRUES ae 

ENDS 
END. POPS 
Wash 4d cURON EO cabal thd a0 Ch sGSd 1aN Een VER INET OKRA NEL eaVawuria nuke Sea awks 
ZeeekaeeetPROGESSCONTROLCARD eh tka Rhee Ee eI kk hk bik 
% PROCESSCONTROLCARD USES CHAR» MOVECHARSs CONTROLPARAMETER, 
PROCEDURE PROCESSCONTROLCARD(A)3 

ALPHA ARRAY ACOJ3 

BEGIN INTEGER Ts P3 
LABEL 
E» % END OF PROCEQDURE 


i 


siege BULMAMEE Baraiey taceye ae, 
@ @ @ & @ & & @ ® @ & @ & 
: . ‘ ; ; ; : 


62080000 


62090000 
62100000 


62110000 | 


62120000 
62130000 


_ 62140000 


62150000 
62140000 


62170000 


621480000 
62190000 


62200000 


62210000 
62220000 


.. 62230000 . 


62240000 


62250000 
..$2260000 
62270000 


62280000 


62290000 | 
62300000 

— 62310000 
. 62320000 


62330000 
62340000 


2350000 - 
62360000. 


62370006 


62380000. 


62390000 
62400000 
62410000 


62420000 
62430000 
62440000 
~62480000- 


62460000 
62470000 


62480000 


62490000 
62500000 


~$3810000 


62520000 


62530000 | 
62540000 
62550000 
62560000 

62570000 


62580000 


62590000 
62600000 
62610000 

- 62620000 


62630000 
62640000 


ILLEGAL» ® ILLEGAL CONTROL CARD 
NOFPILEs % FILE REFERENCED WHICH CANT BE READ 
PARAMERRs % ERROR IN PARAMETER TO CONTROL CARD 
PARAMMISSINGS. % CANT FIND A NEEDED PARAMETER TO CONTROL CARD 
x : 
Po@ 1 # 1 # SKIPCHAR(™ "sACw)s1)3 
DO P «Pp + 4 UNTIL Po = I > 7 OR CHARTYPECCHARCAL*1sP)) #4 33 
IF P= ~ > 7 THEN GO TO ILLEGAL: 
AA « 03 
MVCP@TeALe le Te AAs BRP+t 5 
FOR I © NUMCONTROLCARDS STEP #1 UNTIL 0 00 
1F AA = CONTROLCARDEI] THEN 
BEGIN CASE J OF 


Laeaaeee tk CONTROL CAROSe5o<eieaeuthesias 


BEGIN GO TO ILLEGAL3 
% 12 "DEBUG. TURNS ON DEBUG MODE 
BEGIN DEBUGGING © TRUES : 
IF NEXTSOURCERECORD = 0 THEN NEXTSQURCERECORD « 43 
DEBUGRULELIMITEXISTS © ALIMITEXISTS « TRUE} 
% THIS WILL CAUSE SUSPENSION AT THE FIRST INSTRUCTIONe 
ENDS 
% 2: =PcC CAUSES ALL CONTROL CARDS TO BE PRINTED 
PCC ® TRUE: 
4% 33 *LIST © CAUSES THE PROGRAM TO BE. LISTED. 
BEGIN IF LISTSPACES*CONTROLPARAMETERCAsP) < 0 THEN LISTSPACES ¢ O3 
LSTF ¢ TRUES 
END} 
& Ht UNLIST | CAUSES THE LISTING TO STOP 
LSTF © FALSES 


% 5: PUNCH CAUSES THE PROGRAM DECK TO BE PUNCHED 
- PUNCHF «© TRUES 


‘% 61 eEVECT EJECTS THE LINE PRINTER TO THE NEXT PAGE 


BEGIN I * CONTROLPARAMETERCAsP)3 
IF 1 < #1 OR I > 11 THEN GO TO PARAMERRS 
IF I < 4 THEN If © 13 
IF LSTF THEN WRITECPRINTCII93 
ENDS 
27: SPACE <INTEGER? PRODUCES <INTEGER> BLANK LINES IN THE LISTING 
BEGIN 
I ¢ CONTROLPARAMETERCAsP)3 
FOR 1 * Y*1 WHILE I 2.0 DO. WRITECPRINT FOL} 
END} 
% @t =WIDTH. <INTEGER? "SETS THE NUMBER OF CHARS IN EACH CARD IMAGE 
% TO BE CONSIDERED PART OF AN INSTRUCTIONS ALL CHARS AFTER THE NTH 
% ARE TO BE IGNORED BY THE COMPILER, 
_ % ITF THIS CARD. USNT USEDs THEN FIELDSIZE IS ASSUMED To BE 72. 
BEGIN. 
JTF. Tue SGNTROLPARAMETERCAsP) > 80 OR I< 0 
‘THEN GO TO PARAMERR; 
FIELNSIZE ¢ 33 
ENDS 


B Ot -26. TURNS ON CHARACTER Sey CONVERSION’ FROM THE 026 KEYPUNCH 


BEGIN CONVERTF © TRUES 
CONVERTSTRINGS © FALSES 

. ENDS. oa, 

% 101 "3600, CAUSES CHAR SET CONVERSION AND TRANSLATION OF 1/0 
% STRINGS FROM COC 3600 SNOBOL. 


® @ @ @ @® &@—(8@m™mUC OhUC MhUC MlUC OMhCUl!FhlUD 


i i feat we j 
sal { : ' 
CES Hees ; Joes : : 


wee 


fhoare Susianas fasras, bec. 3s . 
: mal 
* 3 % ., tat oot oe + ros ; 3 Ps ang baa t ree 2 + ‘ 3 % ’ : 
; i Pepe H i H : wie : ae Pot i PES : a 
: eee 2 i : i : : a i i £ p ‘ 


e 


| 


- 62650000 


CONVERTF « CONVERTSTRINGS. ¢ TRUE 


62660000 % 11! =B85500 — CANCELS THE EFFECT OF PREVIOUS =26 AND #3600 CARDS. 


62670000 


62680000 % 128 eNEFINE AsBol 


62690000 


62700000 
62710000 


62720000 
62730000 


_ 62740000. 
62750000 

62760000. 

- 62770000 


62780000 
62790000 


_ 62800000... 
62810000- 


62820000 


62830000 


62840000 
62880000 


62860000 | 


62870000 
62880000 


62890000 


62900000 
62910000 


62920000 
62930000 | 

62940000 
“O2980000 


62960000 
62970000 


62980000 
62990000 


63000000 


. 63010000. 


63020000 
63030000 


63040000. 


43030000 


63060000. 
63070000 


63080000 
63090000 


_. 63100000 
63110000 
63120000 
63130000 


63140000 
63150000 
63160000 
63170000 
63180000 
63190000 
63200000 
63210000 


% 13% *"wAIT <N> 


% 14 *LIMIT <I> LSINTEGER> 
-% QUANTITY <1>3 TWIS LIMIT IS CHECKED AT THE START OF THE EXECUTION 


CONVERTF « CONVERTSTRINGS ¢ FALSE 

ACTS LIKE THE INTRINSIC: FUNCTION DEFINEs 

% BUT SETS UP THE FUNCTION AT COMPILE TIME, THIS SAVES THE SPACE 
% THAT A RUN®@TIME DEFINITION WOULD TAKE FOR LITERALS AND INSTRUC= 
% TION CODE, PLUS THE TIME NEEDED FOR COMPILATIONS 

X As Bs AND ¢ MUST BE LITERALS, 

BEGIN INTEGER ARRAY STC18313 

INTEGER. Js 

rete DEF Le DEFERR} 


IE: NOT. SYMBTABLSETUP THEN INITIALIZESYMBTABL3 


FOR J «© 42223 00 STty) «+ O3 
FOR J © 19223 00 
BEGIN P «© P + SCANCHARC’ 2" s"s ATP WleP.C)3 
Ip P 2 INSTSIZE THEN GO TO DEF13 
IF CHARCACP.WIsP,C) = My” THEN 

BEGIN STfJ] + O83 

Pe P+ 43 

END ELSE 

BEGIN P « P + 13 

I @ P + SCANCHARCO™™, OMARKSALP,W1sPeC)3 

IF I 2 INSTSIZE THEN GO TO DEFERR3 

—S$TtJ] « NEWCELLCOD3 
AA © STRINGCI@PsSTLUI)3 
MOVECT™P ALP WISP, CeDATALAAsRPAAaWIPAA.C)3 
-VALUCST£J]] © AA3 
P @ Tm SCANCHARC'» *s*™", ALT WisleCel) + 13 
IF CHARCALCPeWJsP.C) = te" THEN P © P + $3 
IF P > INSTSIZE THEN GO TO DEFL3 
END3 
ENDS 


DEFi: IF NOT SNBLDEFINECST£C13-STC2I)2STC37) THEN GO TO PARAMERR; 


FOR J ¢ 19203 pO IF STCJ] # 0 THEN RETURNCELLCSTCJ124 
GO To E3 


DEFERRE MESSAGEOCI9)3 % MISSING QUOTE 


MESSAGETTOCI993 
END DEFINES 

SETS THE WAITING TIME FOR REMOTE 1/0 TO N SECONDS, 
% IF N IS NOT > Os THEN STANDAROWAITTIME IS USED. 


BEGIN AA ¢ CONTROLPARAMETERCAsP)3 
“IF AA <0 THEN GO TO PARAMERRS 
-WAITTIME © AA x 603 


ENDS 
PUTS A LIMIT OF <INTEGER> TO THE 


% OF EACH INSTRUCTION, THE CURRENT VALUES OF «<I> ARE? 


% RULES PUTS A LIMIT TO THE NUMBER OF STATEMENTS EXECUTED. 
% PROCESS PUTS A LIMIT CIN SECONDS) TO CPU TIME 
% TO PUTS A LIMIT CIN SECONDS) To I/O TIME 


BEGIN LABEL LOOP! 


LOOP! P « P # 43 


P © P + SKIPCHARC™ “sACulsP)3 
IF P > INSTSIZE THEN GO TO PARAMERR3 
I # SCANCHARC™ "s"a"sALn]eP)3 
IF 1 > INSTSIZE THEN GO TO PARAMERR; 


heey 


i Moore Business Sorms, lac. sv ; . 


vee fie 


63220000. 


IF 1.8.2 THEN 

63230000 BEGIN IF EQC2sWORDS(8Js32ALe] oP) 

63240000 THEN ft * O ELSE GO TO LOOP; 

63250000 END ELSE 
63260000 If 1°= 5 THEN 

63270000 BEGIN IF EQCS»WORDSEBTs+5eAC#I—P) 

63280000 THEN Y # 1 ELSE GO To LOOPS 

63290000 END ELSE 

63300000 IF 1.3 7 THEN 
—63310000_ BEGIN IF EQC7+WORDSE9Is29AC#I5P) 

63320000 THEN Y # 2 ELSE GO TO LOOP; 

63330000 END ELSE 
63380000 == GOTO LOOPS 

63380000 If CPeCONTROLPARAMETER(AsP)) < 0 THEN GO TO PARAMERRS 

63360000 CASE y OF 
63370000 BEGIN. 

63380000 BEGIN ITOLIMIT « Px 603 

63390000. ITOLIMITEXISTS «© TRUE} 

- 63400000. ENDS. 

63410000 BEGIN ‘RULELIMIT © PS 

63420000 RULELIMITEXISTS © TRUES 
63430000 ENDS 

63440000. BEGIN CPULIMIT « P x 603 

63450000 CPULIMITEXISTS © TRUES 
63460000 END 

63470000 END CASES; 

63480000 ALIMITEXISTS © TRUES 
— 63490000 END LMTS . 

63500000 % 45! esSIZE <N> |. TELLS THE COMPILER HOW MANY SCATTER AREAS 10 SET 
63810000 & ASTDE TN SYMBTABL, THIS CONTROL CARD MUST APPEAR BEFORE ANY SNOBOL 
63520000 = &- INSTRUCTIONS} THE VALUE OF <N> SHOULD BE APPROXIMATELY THE NUMBER 

63530000 % OF INSTRUCTIONS IN THE PROGRAM 

63540000 BEGIN DEFINE DUMMYs#3 
63550000 IF SYMBTABLSETUP THEN GO TO ILLEGAL3 
63560000 I ¢ CONTROLPARAMETERCASP)3 

63870000 IF I < 0 THEN GO TO PARAMERRS 
63580000 IF 1! < {80 THEN BEGIN SCATTERNO « 03 GO TO E3 END} 

63590000. =F I <€ 300 THEN BEGIN SCATTERNO « 13 GO TO &3 ENDS 

63600000 IF 1 < 475 THEN BEGIN SCATTERNO # 23 GO TO E3 END3 
63610000 IF 1 < 600 THEN BEGIN SCATTERNO « 33 GO TO &3 END} 
63620000 =F 1 < 800 THEN BEGIN SCATTERNO « 43 GO TO £3 ENDS 

63630000  SCATTERNOD ©¢ 33 

63640000 ENDS. fe ee ee 
63650000 % 161 SET <NAME> SLITERAL> SETS THE VARIABLE <NAME> TO 
63660000 % HAVE THE INITIAL VALUE OF <LITERAL >. 

63670000 BEGIN INTEGER Pls Pas 

63680000. IF NOT SYMBTABLSETUP THEN INITIALIZESYMBTABL3 

63690000  & FIND NAMEt 
63700000.  fepe Pp SKIPCHARC" ",ACHTeP)3 

63710000 WHILE CHARTYPECCHARCACP,W1eP.0)] = 3 DOP © P + 13 

63720000 IF P 2 INSTSIZE OR P = I THEN GO TO PARAMMISSING3 
63730000 = AA © ENTERSTOEPOI*AL* Te 9SYMB™ DS 

63740000 & FIND VALUES 

63750000 P1 @ P # SCANCHARC™"5""", ArP Wi, P.0o} 

_ 63760000 IF P4 2 INSTSIZE THEN GO TO PARAMMISSING3 

63770000 P+ Pi « Pi « 43 

63780000 WHILE P < INSTSIZE DO 


} } : : : a j 
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migwce Gusiiess Bac, Ine. sv TERY 
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63790000 


63800000 
63810000 


63820000 


63830000 


63840000 
63850000 


63860000 
63870000 


63880000. 


63890000 
63900000 


63910000. 


63920000 
63930000 
63940000 


63980000 


63960000 


63970000. 


63980000 
63990000 


_. 64000000 
64010000 
64020000 
64030000 


64040000 
64050000 


..64060000.... 
~~ 64070000 
64080000 


64090000 


auoebee 


64110000 


64120000. 
64130000 
64140000. 
64450000 | 


64160000 
64170000 


_, 64180000 

~ 64190000 — 

_ 64200000 
64210000 


64220000 
64230000 


. 64240000 


64250000 


64260000 
64270000 


— 64280000 
64290000 


64300000 | 


64310000 
64320000 
64330000 
64340000 
64330000 


BEGIN P2 © P + SCANCHARCTEMs "94, ACP WIeP.C)3 
Ip P2 2 TNSTSIZE THEN % MISSING QUOTE? 
BEGIN MESSAGEOC19)3 
MESSAGETTO(19)3 
G0 TO EF} 
EN®s 
P © PO + SCANCHARC TOM, MOMLALP2WIsP2.CH1) + 13 
Ip P « INSTSIZE THEN % SQUEEZE rNSTRUCTION: 
BEGIN MOVECINSTSIZE@P# Le ALP WI sPeCHisALPS.W)eP2,C)3 
INSTSIZE © INSTSIZE # (CP = P2 » 193 
P «# Pa «+ £3 
ENDS 
END3.. 
% Pi, P2 NOW DELIMIT THE VALUE. 
AB © STRING¢P2=P1s2AA)3 
MOVECP2"PLSALP1LeW]ePleCoFIRSTCHARCAB))3 
VALTABLEAA.STR»AAsSTW] -# AB} 
END SET3 
% 47 LIBRARY. <FID>/<eMFID> CREATES A LIBRARY COPY OF THE 
% SNOBOL PROGRAM BEING COMPILEDs WITH THE NAME <MFID>/<FID>, 
% THIS LIBRARY FILE CAN BE LOADED FOR A LATER RUN WITH THE CONTROL 
% CARD *LQAD <MFIOB>/<FID>, 
BEGIN DEFINE DUMMY =83 
IF ENTRY = 0 THEN GO TO ILLEGAL; 
IF LOADF THEN IF SLASTLABEL # © THEN 
BEGIN I « PTR 
If NOT CGTS AND GTF) THEN 
BEGIN. 
STORECHARSCIF GT THEN 2 ELSE 3e"/"E"e IF GT THEN 6 ELSE 5) 
YR NOT GT THEN Te TF + 13 
Ye NOT GTS THEN 
BEGIN SLOC « 43 
MVE2eSLOCe 4s CODE LMARKER, WI] sMARKER.C+3 93 
END? 
YF NOT GTF THEN 
BEGIN FLOCG # 3 
MV C2eF L062 62 CODEEMARKER, WIsMARKER,C45)5 
ENDS 
‘ENDS 
AA © STRINGCPTRsSLASTLABEL 23 
MOVECPTRe CODED #1202 F IRSTCHARCAA) )3 
VALUCSLASTLABEL3,LOC @ AA3 
If PTR > MAXINSTSIZE THEN MAXINSTSIZE « PTRI 
PTR ¢& 13 
EnD3 
P © P+ SKIPCHARC" NeAL#ISP)3 
“Jo & P+ SCANCHARCT/% 5" MACH] oP DS 
POL 2 FIELDSIZE OR CHARCACTWieTeC) 4 "7" THEN GO. TG PARAMERR3 
AA e OR 
MV C7 eBLANKSs ie AAsl)3 
AB © AA} 
MVEMINC 7s I@P 2s ALPaW I eP Ce Abn 23 
Pe y+ 3 
I ¢ P + SCANCHARC™ "s,QMARKs ALP W19P.C)3 
TF § $ P OR If > INSTSIZE THEN GO TO PARAMERR3 
MVOMINC 7s IT@PsALCPaW I] oP eCeoABel D3 
CREATELIBRARYCAASAB) 3 


i 


64360000. 


64370000 
64380000 


64390000 
64400000 


64410000 
64420000 
64430000 
64440000 


64450000 
64460000 


64470000 


64480000 


64490000 
64500000 


64510000 
64520000 
64530000 


64840000 


(64550000) > 


64560000 


64870000 
64380000 


64590000 


64600000 


64610000 
64620000 
64630000 


64660000 
(64680000 
64660000 PP 


64670000 
64680000 
64690000 


64700000 
64710000 


64720000 


66730000 


64740000 
64750000 


64760000 | 
— 6A770000 | 
64780000. 

64790000 


64800000 


_ 64810000 
64820000 
64830000 

64880000 


64860000 


_ 64870000 | 
(64880000 
64890000 
64900000 


64910000 
64920000 


END LIBRARY} 
% 18% *LOAD <A>/<B> CAUSES THE DISK FILE <A>/<pB> TO BE 


% CONSINDEREN A COMPILED SNOBOL PROGRAMs AND LOADEDe THIS CARD 


& TS ILLEGAL IF INSTRUCTIONS» “DEFINE OR “SET CARDS HAVE BEEN 


% ALREADY ENCOUNTERED. IN ADDITION» ONLY ONE @LOAD CARD IS 
% ACCEPTED PER JOB, 


BEGIN DEFINE DUMMYa#3 


IF SYMBTABLSETUP THEN GO TO ILLEGALS 

P # P + SKIPCHAR(” meatal eP)3 

To @ P-* SCANCHARC™/"5" “sal e]eP)3 

IF 2 INSTSIZE OR CHARCALIT.Wier.C) #2 %/" THEN GO TO PARAMERR} 
AA & O03 

MVC? eBLANKSs12AAn1 93 

ARB # AA} 

MVOCMINC7e TP eALPeWIeP Ce Abe id} 

P@® ¥ + 43 

le p + SCANCHMARG™ "sQMARK SACP WIeP.C)3 


‘IF © $ P OR I > INSTSIZE THEN GO TO PARAMERR3 
MVOMING?s T@P)eACP AW I0P, CsABse 123 


LOADLIBRARYCAAsAB)3 
IF DEATH THEN GO TO ENDTERPRETS 
END LOADS 


% 19% @COMPILE <A>/<B> TELLS THE LOADER TO COMPILE THE DISK FILE 


% <A>/<B> INTO THE PROGRAM AT THE POINT WHERE THIS CARD APPEARS. 
BEGIN FILE IN PROG DISK SERIAL €1910,30)3 

BCOLFAN RMT» BUFFULLS 

ALPHA ARRAY BUFLO'10O]» xLo1673 

INTEGER Sie S23 

ALPHA ARs AB; 

§ 
Pe Pe ~ SKIPCHARCT Mp AL HPP); 

I @ P + SCANCHARC™/ "5" WAC eI SP); 

IF I 2 INSTSIZE OR PEARL AE NIA Ts C) ¢ "/" THEN GO TO PARAMERR3 
AA « O83 


+ 
6 


MVCTsBLANKSs 12 AAe1)3 


AB «© AAS 


MVCSEOMING7e TP) SAL. WJeP, Cr AAs} 


Poe yo# 43 
1 © P + SCANCHARC™ "sQMARKsALP WIeP,0)3 


_IF 1 $ P OR I > INSTSIZE THEN GO TO PARAMERR3 
 MVCSBOMING 7a T@P ALP WI eP, erabea! 


FILL PROG WITH AAsABs 


SEARCHCPROGsXEW1)3 


IF Xr0} <¢ 0 THEN GO TO NOFILE} 
IF BUFFULL@BUFFERFULL THEN MOVEWDS(C1OsBUFFERCO]»B8UFLO])3 


REABCPROGs10sBUFFERE#}) oe ee 


BUFFERFULL «# TRUES- 


—LOADERLEVEL. eo LOADERLEVEL +13 
RMT PROGRAMFROMREMOTES “PROGRAMFROMREMOTE « PALSE3 


LOABERCPROG)} 


WRITE CBUFOUTE *) sFENDPROG > 53 

_ MVOSte AAs ts BUFOUTC J 222)3 

 MVGL es SLASHs 7eBUFOUTE *#) 222481 )3 
MV CSDs ABs 1s BUFOUTL#32234S51)3 
WRITE CPRINT? SsBUFOUT(E #103 


IF BATACOMF THEN 
BEGIN MVC2eCRLFeSesDCWRITEC 41203 


pe ' as : ; : i 


. ports Poceas. fan, oe eve 
“4 i : soe ey, : : : : : : i : a | : ‘ : : 
al i i ; } : ; : ; i : : ! : i i i : : 
ane i. £ F} . £ t ‘ 


| 
i 
{ 
i 
| 


t 


i 


| 
i 


64930000 


64940000 
64950000 


64960000 | 


64970000 


64980000 | 
64990000 


63000000 
65010000 


63020000 


65030000 


65040000 
63030000 


65060000 
63070000 


65080000 


65090000 
65100000 


65110000 


65120000 
65130000 


$3140000 


65150000 


63160000 
65170000 


65180000 
65190000 


65200000 
65210000 — 
65220000 © 
— 65230000 


65240000 
65250000 


... $3260000 | 


65270000 


63280000 
- 63290000 


65300000 
65310000 


65320000 
= 65330000 
65340000 

65380000 


65360000 
65370000 


~--$3380000 . 
oe ‘% IF INFORM THEN INFORMACL»STLOC)3 
65400000 ST . NEWCELLCSTLOC.STRDS 

65410000 |} 


635420000 
65430000 
63440000 


65450000 © 


65460000 


635470000 
65480000 
65490000 


MVC214S14¢S2eBUFOUTC el] e2eNCWRITEL¥ I] 9293 
MVC 3sCRL es SeDCWRITEL #1 223451492 )3 
Ir OUTPUT THEN; 
. END? - 
TF BUFFERFULL®BUFFULL THEN MOVEWOSC10sBUF LO) »8UFFER[O] 93 
LOADERLEVEL « LOADERLEVEL = 43 
PROGRAMFRGMREMOTE « RMT3 
ENQ COMPILE CARD} 
% 20! *tNFORNM TURNS ON INFORMATIVE DIAGNOSTICS. IF THE SYSTEM*= 
_% DEBUGGING FLAG Is TRUE» THEN THE SYSTEM DEBUGGING AIDS 
% ARE ENABLED. 
BEGIN INFORM ¢ SYSTEMDEBUGGING 
-PRINTMESSAGES « TRUES 
EnND3 
% 21% =SILENGE TURNS OFF DIAGNOSTIC MESSAGES TURNED ON BY # INFORM 
INFORM © PRINTMESSAGES ©¢ FALSE 
END CONTROL CARDS CASE STATEMENT} 
Saweweeew CONTROL CARDS teeth en ek ee ttt 
GQ To Es . 
END? 
ILLEGAL s 
MESSAGEO¢20)3 
MESSAGETTO(C20)3 
MESSAGES * MESSAGES + 3 
‘40 To Es. 
PARAMMISSING! 
MESSAGEOC2193 
MESSAGETTO(C 2193 
MESSAGES ¢€ MESSAGES +* 1} 
G0 To €3 


NOFILE! 


MESSAGEO(11)3 
MESSaGETTOC1193 
GO To £3... 
PARAMERR? 
MESSAGEOC10)3 
 MESSAGETTOC10)3 ~ 
MESSAGES © MESSAGES + 13 
E? END PROCESSCONTROLCARD3 


Raker eseeePROCESSCONTROLCARD war ede te hae eae ee eRe ae Oe ee 
THEN ER HA PUSH ARETE E EEE E Eee EE EE ERE RE EERE EERE EE EATEN ATE ONE EEE RR EES 


BOOLEAN PROCEDURE PUSHCSTLOCsNEWVAL D3 
VALUE STLOCs NEWVAL3 ALPHA STLOCs NEWVAL3 

BEGIN ALPHA STs Ts Tis 

INTEGER 13 

LABEL RETURNS 


IF DEATH THEN. 
BEGIN: PUSH ‘ “FALSES GO TO RETURN END} 
VALUCSTI « TL « VALUCSTLOC)3 | 
IF TieCH 2 3 THEN % IF < 3 THERE IS NO STRING BEING POINTEO TO, 
BEGIN IT « T1,CH 7 23 
MVC2sSTeGeDATALTLeReleW)eteC)3 
ENDS 
VALULCSTIeLINK © VALUCSTLOC],LINK? 
VALUCSTLOC] «© o & TL £12124) & ST CLINK3 


® © 0@®ee0ee0e8080e08¢06 @ @ 


65800000 


65510000 
63520000 


65530000 


63540000 


65550000 
65560000 


65570000 
65580000 
65590000 


=<ggannone 
65610000 
63620000 


65630000 
65640000 


- 63650000 | 
PROCEDURE RETURNCELLOND3 VALUE NJ ALPHA N3 


65660000 


65670000 
- 65680000 


65690000 
65700000 
65710000 


"5720000. 
65730000 
65740000 | 


657850000 
65760000 


68770000 
65780000 
65790000 


65800000 


65810000 


65820000 
65830000 


65640000 


65850000 
65860000 


65870000 


65880000 


65690000 
65900000 
68910000 
- 68920000. 


65930000 
65940000 
65950000 


68960000 
68970000 
65980000. 


~ 65990000 


66000000 


eceze OS OLIO0O0. 
66020000 
66030000 
66040000 | 
66050000 


66060000 


IF NEWVAL # 0 THEN % ASSIGN NEW VALUE 
BEGIN IF STLOC = NEWVAL % PUSHCNeN) CALLED. 
THEN NEWVAL © ST3 % RE*ASSIGN OLD VALUE. 
ST © VALUCNEWVALI,.S3 
T © STRINGCST*STLOC)S 
IF DEATH THEN 
BEGIN @USH ¢ FALSE GO TO RETURNS ENDS 
NEWVAL ¢ VALUCNEWVALI3 
MOVE CST»sPIRSTCHAR(NEWVAL ) oF IRSTCHAR(T) D3 
— VALUESTLOCI.LOC + TS 
ENDS 
PUSH * TRUES. 


RETURNG |e 


END PUSH3 
Kww tee eee EPL SH i ok kee Re eR EH a EERE ERE REED ERR ee 


Beexeeke eRETURNCEL L © #6 we ee te ee RR EE EER REE EK EH RE EE 


BEGIN DEFINE DUMMYa#3 
% IF INFORM THEN INFORMAC3,N)3 
NAMEEN] © O & NEXTCELLENeSTR] CLINK3 
VALUEN] © 03 

NEXTCELLEN, STR] © N3 

END RETURNCELLS 


POPE TET Tt THAT ESTE ET ESET ELIT ETETERETTC LTT CTTETTRETLTT LETT LET LET 
Zeek eee ERE TURNTEMP 8 0 i mW WW ie oe te Oe eRe ae i ia OO i ae ek 
PROCEDURE RETURNTEMPS3 

BEGIN INTEGER 13 ALPHA STsP3 

% TF INFORM THEN INFORMOC793 


FOR I¢ 0 STEP 1 UNTIL 45 DO IF USEDSTCI] THEN. 


TF TEMPLISTET) # @ THEN 
BEGIN ST ¢ TEMPLISTEIDS 
Po NEXTCELLEIIS 
TeMPLISTryr} « O3 
NEXTCELLEI) © NAMECSTI,LINKS 
 NAMELSTI «© 08 . CLINKS 


END} 
END RETURNTEMPSS 


Leese aeeARETURNTEMPA Oem tH en en Nat NaRdenanenetennenaanebennentannenkenens 
RHHETANAESCATTERSSSESUR SLES OREN HE STAR ES EREN SELES EAA EERER EER ENN ENE HES 


ALPHA PROCEDURE SCATTERCSIZEsLOC*#P+X03 


VALUE SYZEs Pe x3 

INTEGER SIZeEs PS 

ALPHA ARRAY LOCtOys 

ALPHA X3 

BEGIN ALPHA Ts Js K3 

J «© IF SIZE = 0 THEN 1/x ELSE SIZE/Xx3 

FOR Tt ¢ 4 STEP 1 UNTIL SIZE. no. 

Jed exes Cl + GHARCLOCECReP4t= 1) eW1eKeC))3 
Ko J. fB33013 

I,5TR ¢ ENTIERCK ‘MOD: CSCATTERNOS1)93 

J,C1891 © O3 

a LITERALS ARE SCATTERED INTO A OIFFERENT AREA THAN OTHER QUANTITIES 
1,STW ¢ IF xX = "LIT" 

THEN SCATTERSIZE + ENTIERCY MOD 16) 

ELSE ENTIERC J MOD SCATTERSIZE)3 

IF {2 0 THEN 7 & 13 

SCATTER © 13 


® @ @ @ @ @©@—6.@mUCUHmUCOMUmUCOUC UC CUCUCOlCU 


ane i : im H : 


© 


Poets B0Mngst berms, int. Ayes 
: ' i ye ie Bes 4 i : : noe : : , : : : 4 : i : ss 7 
: i i : ae { : : : : : : mal : A i 


66070000 | 


66080000 
66090000 


66100000. 


66110000 


66120000. 
66130000 


66140000 
66150000 


66160000. 
-66170000_ 
66180000 Xx 
66190000 

66200000 


66210000 


on 220000 
66230000 
66240000 
- 66250000 | 


66260000 
66270000 
66280000 
66290000 


66300000 
- 66310000 —_ 
66320000 


66330000 


66340000. 
“66330000 

66360000. 

66370000. 


66380000 
66390000 


66400000 
- 66410000 
66420000 
~ 66430000. 


66440000 
66450000 


66860000. 

66470000, 
66480000 
66490000 


66500000 


66310000 
66520000 


66530000 


66840000 ~~ 
- 66850000 


66560000 
66570000 


_. 66580000 


66590000 
66600000 
66610000 


END SCATTER} 


Lee e eee SCATT ORE HHENNEREREEE HERR EERE RHEE EERE RENE I RRR R RE EERER 
Reman kSEARCHS Te eek ewe ENE TERE REN ETE ERE REE REE 
ALPHA PROCEDURE SEARCHSTCNs| »Psx 23 

VALUE No Pa X3 

INTEGER Ne PF 

ALPHA ARRAY LfO33 

ALPHA Xx} 

BEGIN ALPHA Js» K3 


INTEGER In XTESTS 


LABEL FOUND, FAILS. 


XTEST Aa IF xX = “SYMB" THEN 0 ELSE 
Ip x = "FCT" THEN 2 ELSE 
IF X = “INST” THEN 3 ELSE 03 


IT @ SCATTERCNeL oP eX)3 
WHILE Io¢ 0°00 


BEGIN IF Cle N # (K@NAMELI2),S 
THEN FALSE 
ELSE EQUAL(NeLsPsFIRSTCHARCK))) 
‘THEN IF CIF N & O THEN K,LOC # O ELSE TRUE) 
_ THEN IF KeTYPE = XTEST 
oe THEN GO TO FOUNDS 
1 © KeLINK3 
ENDS. 
FAIL! 
Te {3 
FOUND! 
 SEARCHST © 13 
END. SEARCHSTS 
GaSe ELCCUSEAMOUSTENG 0 0db waded ba bav en ts gbarsbeaes coibeVe uN Re eedaeSeeenes 
Bee kee SNBL DEF TNE © 2 a te ie te oie de ak te ae eM eee ae eae Rt TOT RIOR TO tk ee 
% SNBLDEFINE SETS UP PROGRAM@=DEFINED FUNCTIONS, THE THREE PARAMETERS 


% SHOULD BE THE SYMBOL TABLE LOCATIONS OF THE THREE PARAMETERS FOR 


% THE SNOBOL DEFINE. 


% SNBLOEFINE USES CKAR» SCANCHAR? ENTERST» MIN» STRING* MOVECHARS, 


BOOLEAN PROCEDURE SNBLDEFINECST1»ST20ST3)3 
VALUE STis ST2s ST3s 
ALPHA STi» ST2s S133 


x 


Se 7 
DEFINE PARAMMAYX = “30 #3 % MAX NUMBER OF PARAMS & LOC VARS ALLOWED. 


INTEGER Te Pis P2s LVNO} 


ALPHA PROTs ENT» LVARS» STLOC3 
INTEGER ARRAY LVLOSPARAMMAX)3 
LABEL PROTERR» LVERR»s RENVOIs TOOMANY? 
IF ST1 © 0 THEN 
BEGIN % NO FIRST PARAM (PROTOTYPE), 
—MESSAGEOC4)5 | 
MESSAGETTOCA)3— 
GO To RENVOTS 
ND3 


END} he 
PROT © VALUCST173 
ENT © fF ST2,STW = O THEN O ELSE VALUCST233 
LVARSe TF ST3.STW = 0 TREN 0 ELSE VALUCST3)3 


66620000 % 


66630000 


% FIND NAME? 


Cc. uy 


crs Farms, tn 


wWwoore 


Seareae i 


sg diet co 


i 


fe 


66640000 


66650000 
66660000 


66670000 


66680000 
66690000 
66700000 
66710000 
66720000 
66730000 


66740000. 


66780000 
66760000 


66770000 


66780000 


_... 8790000. 
~~ 66800000 
66810000. 
66820000 
66830000 


66840000 


66850000 
66860000. 


66870000 


-66880000— 


66890000 
66900000 


66910000 


66920000 — 
66930000 


66940000 __ 


66950000 
66960000 


_ 66970000 | 
66980000 


66990000 


67000000 
67010000 


67020000 


67030000 | 
~ 67080000 

- 67080000. 
67060000. 
67070000 


67080000 
67090000 


67100000 

67110000 | 

67120000 
67130000 


67140000 


67150000 
67160000. 
67170000. 
67180000. 


67190000 
67200000 


Pi « PROT. CH + SKIPCHARC™ ",DATALPROTsRePROTsWIePROT»C)3 
P2 # Pl + SCANCHARC"(" sQMARK »DATALPROTsRoPL, W1ePLe C)3 
IF P2 = Pi > PROT.S THEN 
_ BEGIN MESSAGEO(3)3 
MESSAGETTOC3)3 
60 TO RENVOT3 
ENDS “cee 
STLOC © ENTERSTCP2"PIsDATACPROT, Ret] oPis "FCT" )3 
LVELVNO¢O] «© ENTERSTCP2"P4 sDATALPROT Rew lePis "SYMB")3 


IF PRINTMESSAGES THEN % CHECK WHETHER ALREADY DEFINED! 


IF VALUCSTLOCI,LINK * 0 THEN 


IF LOADFE THEN 
BEGIN MESSAGEO(13)3 MESSAGETTOC1393 END ELSE 
BEGIN MESSAGEIC21sINSTNODS MESSAGETTIC21*2INSTNOQ)S END} 
x 
XS FIND ENTRY POINT? 


ENT * TF ENT.S 2 0 

“THEN. ENTERSTCP2°P1.DATACPROT, Ret ]eP1,"INST") 
ELSE ENTERSTCENT «SsDATALCENT,Ra*]sENT,CHe "INST" D3 
% 

® PROCESS FORMAL PARAMETERS? 


Toe PROT.CH # SCANCHARC")*,QMARKsDATACPROT,RePROT WI ePROT,C)3 


IF 1 < p2 = PROT.CH THEN de TO PROTERR} 


Pie P2 + 43. 
nate Pi < 1 00. 
BEGIN Pt * pt +. SKIPCHARC” "DATALCPROT ARO PL eWJ]ePieC)3 
P2 ¢ Pi + MINC 
SCANCHAR(' >» Me™) *SDATALCPROTeRePisWIePi el )s 
SCANCHARC" ",QMARKsDATACPROT, RePi, WIP. C))3 
IF Po > 1 THEN P2 ¢ I} 
JF P4 = P2 THEN GO TO PROTERR 
IF LVNO + LVNO#t > PARAMMAX THEN GO TO TOOMANY3 
LVCLVNO ¢ ENTERSTCP2"P1sDATALCPROT Rae* I)» Pia *SYMB")3 
P2 @ P2 + SKIPCHARC"™ “",DATACPROT. ReP2eW1sP2oC)5 
IF pP2< Ty AND CHARCDATACPROT. ReP2yW19P2- C) # "," THEN GO TO PROTERRS 
P1 # P2 + 13 
ENDS 
y 3 


% PROCESS LOCAL VARIABLES: 
Il « LVARS, CH + LVARS.S3 
Pi * LVARS,CH?. . 
To® Pt + LVARS, $e 
WHILE P4 < 2 DO 
BEGIN P1 ¢ P1 + SKIPCHAR(" 1, DATATLVARS, ReP1 W)sP140)3 
P2 © P41 + MINC . 
SCANCHARC > "9 ")"sDATALLVARS oRaPleW]ePleC)» 
~~ SCANCHARE™ “sQMARK*sDATALLVARS. RePieWlePie coy) 
JF Po > 1 THEN P2-¢ 13 | 
IF LVNOSLVNO#1 > PARAMMAX THEN GO TO TOOMANYS 
LVELVNO] © ENTERSTEP2"P1 sDATALLVARS Rok ]ePle"SYMB" DS 
P2 * P2 + SKIPCHARC™ ",DATACLVARSeRaP2.W39P2,C)3 
TF P2. <1 AND CHARCDATATLVARS «RaP24W3+P24C) x s" THEN GO TO LVERR} 
ee ee ee a ee a ee - oe 
ENO) 
& FINISH SYMBOL TABLE ENTRY? 
I «© STRINGCCLVNO#1)%2sSTLOC)3 
VALUCSTLOC] *© Y & 1£1847913 & ENT CLINK3 


os a : i : i i - } i z i 
sh | ercrererita PS. ee tee : : : : . : : : H 1 i 


: : : sigs, of eases eee a wale Ened oy ail Sie Sac tial ‘ ' : : ‘ 
i Bonk i : ee te : i : : 4 Dad j i ! H ji i i 


67210000 


67220000 
67230000 


67240000 


67250000 
67260000 


67270000 | 


67280000 
67290000 


673900000 | 


67310000 
67320000 


67330000 


67340000 
67350000 


_ 67360000 
67370000 


67380000 


_. 67390000 


67400000 
67410000 


67420000. 


67430000 


67440000 
67490000 ° 


67460000 
67470000 


. 67480000 
67490000 | 


FOR PL * © STEP 4 UNTIL Me DO 
MOVEC2sLVEP1 J s62DATACI, Re CT42XP1), W),CI+2*P1),0)3 


IF TRACEALL THEN 
BEGIN VALUCSTLOCI«IOUSE « 33 

1OCSTLOC] © 0 & 3 CFELNO & 3 CIOUSE @ 2 CIOTYPES 
ENDS 

SNBLDEFINE « TRUE 

GO TO RENVOTS 

TOOMANYs 

SNBLDEFINE « FALSES 

MESSAGEI(22,RARAMMAX)3 

MESSAGETTI(24»PARAMMAX)3 

GO TO RENVOTS 

PROTERR? 
SNBLDEFINE « FALSE 
MESSAGETTO(2)3 
MESSAGEOC2)3 GO TO RENVOYS 


LVeRRE 


SNBLDEFINE « FALSE; 

MESSAGEO(133 

MESSAGETTOC193 
RENVOIS 


ENO. SNBLDEF INE? 
ee Tee eee le a REE TELE EERIE LLL LE LLL LLL LLL Ll 


Bite ict te ie SN B LDN ae oe ek te te ei TO III ROI II IG TOI IOI IOIOI toi tot fet tit tok 


BOOLEAN PROCEDURE SNBLINCST)3 

VALUE ST# ALPHA ST3 

BEGIN LABEL RETURN» FAIL» EOFs PARs NOFILE> 
DATACOMM, INREADs LOOKs ILLEGALS 


67500000 ALPHA STNs STVe S103 

67510000 INTEGER SIZE» TYPE» Ts» UNITS 
67520000 SWITCH READSW « 

67530000 INREAD> 

- 67540000 LOOK, 
67550000. DATACOMMS 
67560000 % 
67570000 STV « VALUEST}3 
67880000 S10 + foOLSTy 
67590000 IF NOT BOOLFANCSTVeINUSE) THEN GO TO ILLEGAL3 
67600000 TYPE + SIO.IOTYPES | . 
67610000 UNIT © SIOsFILNGS | 
67620000 % IF INFORM THEN IF UNIT > 0 THEN INFORMIC6sUNIT)S 
67630000 GO TO READSWETYPEY3 
67640000 GO TO ILLEGALS 
67630000 % 

«7660000 DATACOMME.. 

67670000. BEGIN & YNPUT FROM TELETYPES 

67680000 ~—sIF_NOT DATACOMF THEN. 

_ 67690000 = ——s- BEGIN _FINDUSERS3 
67700000 IF NOT DATACOMF THEN GO TO NOFILES 
67710000 ENDS 
67720000 IF NOT INPUT THEN GO TO FAILS 
67730000 VALUCST].LOC © T © TF STV,S 2 DCSIZE 
67740000 THEN STV.LOC & DCSIZE CONCS % USE OLN STRING 
67750000 ELSE STRINGCOCSIZE*ST)3 % NEED BIGGER STRING 
67760000 MOVECDOCSIZEsDCREABL* Js 0sFIRSTCHARCT))3 
67770000 SNBLIN © TRUES 


’ ‘ . cee Guspaess fare, deg Pade 
aed i j i i i : : : i 
Seg Here i ! : i : : : ‘ 


! 
} 
| 
| 


| 
| 
: 
| 
| 
i 
1 


- 67780000 


67790000 
67800000 
67810000. 


67820000 


67830000 


67880000 | 


67850000 
67860000 
67870000 


- 67880000 | 


67890000 


67900000 
67910000 


67920000 


67930000 


679480000 


67980000. 
67960000 


67970000 
67980000 


67990000 


68000000 
68010000 
68020000 


~ 68030000 


68040000 
68050000 
68060000 


68070000 
68080000 — 
68090000 


68100000 
68110000 


68120000 


68130000 


68140000. 
68150000 


68160000 


68170000. 
68180000 
68190000 ~~ 

68200000” 


68210000 
68220000 


68230000 | 
68240000 | 
68250000 © 
68260000 


BREAK « FALSE) 


GQ To RETURN3 
END} 


INREADS 


BEGIN COMMENT gad FROM IOCUNITI3 
IOEORPLCUNIT) « FALSE3 


‘SIZE « TOSTZECUNITIS 


IF LOOKFEUNTT) THEN 
BEGIN LOOKFCUNIT] © FALSES 
MOVECSIZEsNEXTRECOROCUNI Ts *1]eO0sBUFFERC #120)3 
END ELSE 
% READ NEXT RECORD! 
IF RECORDEUNIT] 2 0 THEN 
BEGIN 
READCTOFILECUNITICRECORDCUNITI32£1023-BUFFERE #} )LEQFIPAR3 
RECORDEUNIT] « #13 
END ELSE 
BEGIN SPACECIOFILECUNITIJ*IOSPACECUNITIDCEOFSPARI3 
READCIOFILECUNIT 121023, 8UFFERC +) CEOFSPARI3 
ENDS 
VALUESTI.L0C « T & 
If STV, S$ « SIZE 
THEN STRING(SIZEsST) 
ELSE STVeLOC & SIZE CONCS3 
MOVE (SIZE *BUFFERC#3s0sF IRSTCHARCT))3 
SNBLIN « TRUE? 
6C To RETURN; 
ENDS 


Loot 


BEGIN &. NON@READING INPUT (LOOK) FROM IOFILEfUNITIS 
SIZE ¢ FOSIZECUNITIZ — 


TF NOT LOOKFEUNIT] THEN 


BEGIN IF RECOROCUNIT) 2 0 THEN 
“READ CIOFILECUNITICRECORDEUNIT] 1 1023+ NEXTRECOROCUNITs #9) 
. {EOF ITPAR) ELSE 
BEGIN SPACECIOFILECUNIT] + TOSPACECUNITIDCEOFSPARI3 
READCTOFILECUNIT] s1023»+NEXTRECORDCUNITs *JCEOFSPARIS 
END} 
TOE OFCUNTIT) © FALSE 
LOOKFCUNTT) eI RUE) 
END? = ; 
VALUEST I, LOC: eT @ 
IF STVeS < SIZE 
THEN STRINGC(SIZEsST) 
ELSE STV,LOC & SIZE cONCS} 
MOVE ( SIZE» NEXTRECORD[UNIT) #1» O+F IRSTCHAR(T))5 


SNBLIN. # TRUES. 
G0 tA RETURNS 
ENDS 


68270000 PAR} 


68280000 


8290000 
68300000. 
- 68310000 

68320000 


68330000 
68340000 


BEGIN DEFINE DUMMY¥a#3 


WRITE CBUFQUTE*J+FPARITY)$ 


STN © NAMECSTI3 

MOVE CSTRINGLOCCSTN) sBUFOUTE#3*32)3 
WRITECPRINTSFBL D3 
WRITECPRINTs 17 sBUFOUTE #323 

GO To FAYL3 


eeeeevveeeeeeeeeweeeeenes 


68350000 


68360000 
68370000 


68380000 


68390000 
68400000 


68410000 | 


68420000 
68430000 


8440000 


68430000 
68460000 


68470000 


68480000 
68490000 


— 68800000 
68510000 
68520000 
68530000 | 


68540000 
68550000 


.. 68560000 


68570000 
68580000 


68590000 


68600000 
68610000 


_ 68620000 


68630000 


68640000 | . 
68680000, 


68660000 
68670000 


. 68680000 


68690000 


68720000 
68730000 


_ 68740000 


68750000 


68760000 
68770000 | 


68780000 
68790000 


ENDS 
ILLEGAL! 
INFORMAC5sST)3 
DEATH © SYSTEMERROR ¢ INFORM * TRUE} 
GO To ENOTERPRETS | 
NOFILE! : 
IF PRINTMESSAGES THEN 
BEGIN DEFINE DUMMY¥=#3 
STN « NAMECSTI3 
WRITE CBUFOUTE* JeFCLOSEDR)3 
MOVECSTN, SsFIRSTCHARCSTN) sBUFOUTE #) 5 3693 
WRITECPRINTSFBL D3 
WRITECPRINTs 17s BUFOUTE #393 


END} 
GO To FAILS 


EOrs |. 


TOEOFEUNITS # TRUE} 
FAILS 
SNBLIN + PALSES. 
RETURN 
END SNBLIN3 
Rawr wea wh SNBL IN bw ee ee ee ee ie eee eee TK EEN EE KEE EK RE Rk 
Be tee ae Wet tee te SB LOU Te ae i ae tee ie tee ae te ae eee fe ede ee ie IO ii tte tote et MO Tt Ik 


BOOLEAN PROCEDURE SNBLOUTCST)3 VALUE ST3 ALPHA ST3 


BEGIN 


LABEL RETURNe FAILs EOF» PAR» NOFILEs SYSPOT» 
DATACOMM, IOWRITE* TRACEs ILLEGAL; 

SWITCH WRITESW «¢ 

TOWRITE? 

TRACE» 

DATACOMM, | 

ILLEGAL» 

SYSPOT3 

ALPHA STN» STVs SEOs AAs AB} 

INTEGER SIZFe TYPFEs UNITs ISe ICKhe IR» Te Iie 123 


68700000 % 


68710000 STV © VALUESTI3 


S10 + 1otsTy3 

IF NOT BOOLEANCSTV.OUTUSE) THEN GO TO ILLEGALS 
TYPE © SIO,IOTYPES 

UNIT © SIO,FILNOS 

IS * STvV.Ss. 

ICH + STV.CHS 

IR © STVeRS 

% IF INFORM THEN IF UNIT>O THEN INFORMICL3,UNIT)3 


68800000 % 


68810000. 


GO TO WRITESWCTYPEI3 | 


68820000 GO To ILLEGALS 
68830000 & cS : 
68840000 DATACOMMS 
68850000 BEGIN COMMENT OUTPUT TO DATACOMM UNITS 
68860000 IF NOT DATACOMF THEN 
68870000 BEGIN FINDUSERS} 
68880000 IF NOT DATACOMF THEN GO TO NOFILES 
68890000 END3 
68900000 WHILE IS 2 400 00 
68910000 BEGIN MOVECLOO*SDATALIRe ICHaWJ] eo ICHeCeDCWRITEL #12093 


9 : . é facort Business Porras, fie. 3 Tligsy 
: : i : ae : : 


68920000 


68930000 
68940000 


«68950000. 
68960000 


68970000 


68980000. 


68990000 
69000000 


69010000 


69020000 
69030000 


69040000. 


69050000 
69060000 


69070000. 
69080000 | 
69090000 
69100000 — 

69110000 


69120000 
69130000 


69140000 

69180000 
69160000 

69170000 


69180000 
69190000 


69200000 


69210000 


- 69220000 


69230000 
69240000 
69250000 


69260000 | 


69270000 


69280000 — 
69290000 


69300000 


69310000 | 


69320000 
69330000 


- 69340000. 
69380000 


69360000 


— 69370000 


69380000 
69390000 


69400000. 
69410000 


69420000 


_ 69430000. 
69440000 


69480000 


69460000 


69470000 
69480000 


MVCL*eARROWs 7ODCWRITELI2395)3 
Tr NOT OUTPUT THEN GO TO FAILS 
1S « ~S =» 1003 
Teh « TcH + 1005 
END? 
IF 28 > 0 THEN 
_ BEGIN MOVECTS»DATALIRs ICH. eae ea 
MVC Le ARROWs 7eDGWRITELIS,WI2IS.C 
IF NOY QUTPUT THEN GO To FAIL: 
END 
SNBLOUT ¢ TRUES 
GC. To RETURN; 


ENDS 
IOWRITE? 


BEGIN ®¥ OUTPUT TO FILE # UNIT. 
TOgOrcuNrT) « FALSE 


‘T © CLOSIZETUNITI@=1)0W + 13. 
SIZE ¢ TOSIZECUNITIS | 
FOR T1¢TOSPACELUNIT] STEP 4 UNTIL i Do WRITECTOFILECUNIT) )3 


IF 18 > SIZE THEN IF BOOLEANCSIO,OVFL? THEN 
BEGIN % WRITE AS MANY FULL RECORDS AS POSSIBLE! 
MOVEWDS( 4 sBLANKSsBUFOQUTE +393 
00 BEGIN 
MOVECSIZE*sDATACIRG ICH WI 2 ICH.CeBUFOUTE #14093 
IF RECORDCUNIT] 2 0 
THEN WRITECIOFILECUNITICRECOROCUNIT) Je T»BUFOUTC*) )CEOF SPAR] 
ELSE WRITECIOFILECUNITI» TeBUFOUTE*JICEQFIPARIS 
_ RECOROLUNIT] © 435 | 
ICH © ICH + SIZE3 
tS ¢ 18 = SIZE3 
END UNTIL IS < SIZE3 
ENO ELSE IS « SIZE3 
CLEARCBUFOUTST)3 
MOVECISsDATACIRe ICH, WIsICH.CeBUFOUTEC #)50)3 
IF RECORDCUNIT) 2 0 
THEN WRITECTOFILECUNTTICRECORDCUNITI 3 «Ts BUFOUTC 4+] )LEOF SPAR] 
ELSE BIOTEC LOE RERUN UTI ENGY CTPRUPOUNC SINCE DE Abad 


RECORDECUNIT] © “43 


SNBLOUT « TRUES 
GO. Ta RETURNS 
ENDS 


TRACES 
BEGIN DEFINE DUMMY e853 


T + CIOSIZEFUNITI™1), We i3 

SIZE + LTOSIZELUNITI3 

STN « NAMECSTI3 | 

WRITECIOFILECUNIT I] +FBL)S 

Ii MINCSTN,S26393 % SIZE OF NAME 

12.¢ It # 3 © 114.0646%213 % SIZE OF FIELD-FOR NAME. 


— WRITE CBUFOUTE*]eF TRACEs INSTNO# 1293 


MOVECI Ls FIRSTCHARCSTN) »BUFOUTC#128)3 


IF SzxZE = 12 * 12 > STV.S THEN 


BEGIN MOVECSTRINGLOCCSTV) sBUFOUTE «}s12412)3 
MVCL*SQUOTEs7*BUFOUTCCIL+STV,Sel2412), WJ 2T14C)3 
WRITECIOFILECUNITICNOI+T»+BUFOUTE #9) LEOFSPARY3 
END ELSE. 

BEGIN 


Sepens. lyse 4 


' 
i 
{ 


eeeenenneees 


@ @ & @ ® @ e e ee e e roar 


69490000 | 


69300000 
69510000 


_ 69520000 


DOVE rt ee T ELORTTAINGTOT RUnMUre series J12+¢12)5 
fE0 R13 


69530000 


69540000 
_ 69530000 | 


69560000 
69570000 


69390000 


- 69600000 
_.. 69610000 


69620000 
69630000 


69640000 

69650000 
69660000 
69670000 


69680000 
69690000 


. 69700000 


69710000 
69720000 


69730000 


69740000 
69750000 


69760000 
69770000 


69780000 


69800000 
69810000 


.. 69820000 


69830000 
69840000 


69880000. 
69860000 


69870000 


69880000. 
69890000 
69900000 
69910000 — 


69920000 
69930000 


699840000. 
69980000 
69960000 | 
-. 69970000 
69980000 


69990000 
70000000 


70010000 


70020000 
70030000 
70040000 
70050000 


69580000 


WRITECIOFILECUNITICNOJsT»BUFOUTEC#) Fi 


STV.S @ STVeS * SIZE + 12 + 123 


STVeCH # STV,CH + SIZE = 12 © 125 


WHILE STVeS 2 SIZE DO 
BEGIN MOVE CSTZEsF IRSTCHARCSTV) @BUFOUTE#] 5093 
WRITECTOFILECUNITISFBLIA 
WRITECIOFILECUNITICNO)sT»BUFOUTC eI CEOFEPARIS 
STV,S ¢ STV,S © SIZE3 
STV.CH © STV,CH + SIZE3 
ENDS ; 
CLEARCBUFOQUTST)3 
MNVECSTV Ss FIRSTCHARCSTV) sBUFOUT( 430093 
MVCLSQUOTEs Te BUFOUTECSTVeS) WI CSTV.S 30023 
WRITECIOPILECUNITI sFBL D3 
eereidaa ec uee teaa cea ase fEOFIPARI3 
ND3 


SNBLOUT « TRUE? 


Go. 


TO RETURNS | 


END} 
SYSpPoarTs 


AA 
IF 
IF 
1F 
_ IF 


69790000 


IF 


BEGIN DEFINE DUMMY =#3 
IF 


STV.S = 6 THEN GO TO RETURNS 


@ CHARCDATACSTVeRoSTVeW)eSTVeC)3 


AA 2 "4+" THEN TOSPACEL33 © O ELSE 
AA = " * THEN IOSPACEL3] # 1 ELSE 
AA = "O" THEN IOSPACEL3] « 2 ELSE 
AA = "41" THEN 


BEGIN : 
WRITECPRINTCPAGEI)5 

TOSPACEL3) ¢ 13 

END ELSE 

AA = "*" THEN & NO SKIP AT END OF PAGE 
BEGIN. RECORD(3) « 63 

IQSPACEC3) © 43 


END} 
‘STN # TEMPCELL3 


AB 


* STRING(STVeS™19STN)3 


MOVE CABsaS#FIRSTCHARCSTV) +4 eF IRSTCHARCAB) )3 


AA 
AA, 


¢ VALUCPRINTLOC]3 
LOC © ABS 


VALUCSTN] « AAS 


IF 


TOLSTN] » TOLCPRINTLOCI3 


SNBLOUTCSTN) THEN 
BEGIN 
TQSPacE(3] ¢ 13 


 SNBLOUT -« TRUES 
60. TO RETURNS | 
“END ELSE. 


BEGIN 
INSPACEL3] ¢« 13 
60 TO FAILS 
ENDS 


END3 
ILLEGAL? 
INFORMACS2ST)3 
DEATH « SYSTEMERROR « INFORM ¢ TRUE} 


Moore 2 


70060000 


70070000 
70080000 


— 70090000 | 
70100000 


70110000 
70120000 
70130000 
70140000 


70480000. 
79160000 


70170000 


70180000 © 


70190000 
70200000 
70210000 
70220000 
70230000 
70240000 
70280000 
70260000 


79270000 | 
70280000 
70290000 


70390000 
70310000 
70320000 
70330000 


70340000 
70350000 


70360000 


70370000 


70510000 


70820000, 
70530000. 
- 70540000 


70550000 
70860000 


.... 20370000 
70580000 


70590000 
70600000 


70610000 
70620000 


GO TO ENNTERPRET3 
NOFILE: 

IF PRINTMESSAGES THEN 

BEGIN DEFINE DUMMYs#3 

STN © NAMEECSTI3 

WRITECBUFOUTE* ]¢FCLOSEOW) 5 

MOVECSTN, .SePIRSTCHARCSTN) »BUFOUTE*3235)3 
WRITECPRINTsFBLDA 

WRITE CPRINTs 17sBUF OUTED #33 

ENDS 

GO To FAIL3 

PAR4 

IF PRINTMESSAGES THEN 

BEGIN DEFINE DUMMYs#3 

STN « NAMEELSTI3 

WRITECBUFOUTE#] eFPARITY)3 

MOVECSTN, SoFIRSTCHARCSTN) sBUFOUTE#)232)3 
WRITE CPRINTS FBL D3 

WRITECPRINTs 172BUFOUTEC#})3 


END3 
60 To FAILS 
ENF 


: 
IQEOPCUNTT) « TRUE; 
FATL® 
SNBLOUT ¢ FALSES 
RETURNS 


ENO SNBLOUTS 
Me ete ee ee SN BL OL T te oe ee He de dee re eI RII III IIR IO SOI I Ort 


UD aire STORE CHARS i er IEEE IO III SHIO IIIT A Oa I tte 
PROCEDURE STORECHARS(NeLOCs INC)3 

VALUE N,- ING? INTEGER Ne INC} ALPHA LOC} 

BEGIN DEFINE DUMMY 543 


70380000 IF PTR + N > 8180 THEN 
70390000 BEGIN 
70400000  SYNTAXERR(4220)3 

~ 70410000 END ELSE 
70420000 BEGIN 
70430000 IF N S$ 63 
790440000 THEN MVONsLOCe INC SCODELPTReWIsPTR.C) 

70480000 ELSE MOVECNeLOGsINCSCODELPTReWI2PTR«C)3 
“70460000 PTR « PTR. + N3° 
70870000 END 

70480000 END STORECHARS) 

POAQ0O0D Lewe keke eS TORECHARS HH we iia ie mE ii ha I IRI IIR A RII IIE RIO ti 
SLUM LERET TEER SOLTTLELELALLA TEE LLIT LET TLITTLLTTLI TELL iitr 


% STRING RETURNS THE LOCATION OF AN UNUSED STRING OF SIZE Ne 


SIF NECESSARYs THE GARBAGE COLLECTOR IS CALLED» OR NEW ROWS ARE 


% MADE AVAILABLE» 

ALPHA. PROCEDURE ‘STRINGONSSTLOC)3 
VALUE Ns STLOC3 
INTEGER N3 ALPHA STLOC3 


Beet Sleuths gel cathe veneers 
BEGIN LABEL. Le Es FAILS 
INTEGER [3 

IF DPNTRERW) + N 2 8181 THEN 


BEGIN INTEGER J3 J © 8181 = NS 
FOR Y ¢ © STEP 1 UNTIL DATASIZE DO 


@®eeeeeeee%e* @*# 6©# @ @® * @ @®6% @ @ 


4 


i 


Mute Business Morras, ine, oy ae 
e@ @ @ @ @ ® @ 6 e @ e @ . ®@ @ @ @ @ & & e e 
H rt f - H og “, Se BS Q % ; j a i K # 1 
} : Pos i i i i ! : : i : : i 


| 


. 70630000 
70640000 


70680000 


70660000 
70670000_ 

70680000 
.70690000. 


70700000 
70710000 


70720000 
70730000 


70740000 


COE SOO0O To 
70760000 
70770000 

70780000, 


70790000 


70800000 
70810000 - 


70820000 


70830000 
(70840000. 
70850000 


70860000 


70870000 


70880000 
70890000 


709900000 
70910000 
70920000 

70930000 £ 

70940000 


70980000 


_.70960000__ 


70970000 


70980000 
70990000. 


71000000 
71010000 


71020000. 
71030000 
a ccygnages 
71080000. 


71060000 
71070000 


93980000 


71130000 


71140000 


71150000 
71160000 
71470000 
71180000 
74190000 


TF OPNTREIJ < 4 AND USEDROWECI) THEN 
BEGIN RW © I3 J © OPNTRETI ENDS 
IF DPNTRERW} + N 2 8184 THEN 
BEGIN GARBAGECOLLECTOR: 
FOR 1 * O STEP 1 UNTIL DATASIZE DO 
IF DPNTREI] «< J AND USEDROWEI) THEN 
BEGIN RW * T3 y # DPNTREI] ENDS. 
IF DPNTRERW) + N 2 8181 THEN 
BEGIN. 
IF N > 8181 THEN GO TO FAIL ELSE 
FOR f « O STEP 1 UNTIL DATASIZE DO 
IF NOT USEDROWEI) THEN 
BEGIN USEDROWEI] © TRUES 


Rwe 13 G0 710 13 
END} 
ENn ELSE GO TO L3 
GO TO FATLS 
ENDS 
ENDS | 


Lt STLOC. Serre + QMARK3 
MVC3eSTLOCs Ss DATALCRWs (LEDPNTRERW])WIeT.C)3 
STRING «© €143) & RW CONCR & N CONCS3 


OPNTRERW) «© I+ N + 33 


GO To £3 

FAIut 

MESSAGETC125N)5 

MESSAGETTIC129N)3 

COMMENT OUT OF SPACE IN DATAL¥e*)} 
WRITE CPRINTs MESSAGE 1))3 

DEATH. © TRUE? 

Et a 

END. ‘STRING? 

Bs it STRING fat I tt it IG AI II I a IIR IIIS I III IOI tO ii i tet 
SekeeewaeeSTRINGD UMP etek eek eee eee EERE RENE RR a ek ht 
PROCEDURE STRINGDUMPCINSTNO)S VALUE INSTNOS INTEGER INSTNO3 

BEGIN. 

INTEGER Ip Je Ts. SN3 

ALPHA STN» STV3 

WRITETIME(020)3 


MESSAGEO(6)3. 


IF PRINTMESSAGES THEN MESSAGETTOC6)3 


FOR I ¢ O STEP 1 WHILE I ¢ STRMAX AND USEDSTEN 00 


FOR J © 0 STEP 1 UNTIL STWMAX DO 
IF CSTN@NAMTABLEIsJ3),0C122) = O THEN IF STNgLOC > 1 THEN 
BEGIN 
SN # MINCSTN»S#63)3 
an Toe MAXCSN+3SN,04612358)35 
§tv e VALTABLEITaJT3 
- WRITECBUFOUTE®1,FTRACEs INSTNOST)S 
MOVECSNeFIRSTCHARCSTN) sBUFOUT(C#)28)3 
1fF 120 * T > STV,S THEN 
BEGIN MOVECSTVaSeFIRSTCHARCSTV)>» 
BUFOUTET.WJs124T.C)3 
MVCLe QUOTES 7sBUFOUTECIL¢STV, $+#T4+12). WoT .C)i 
WRITECPRINT#17# BUF OUTE #) 93 
END ELSE 
BEGIN 


TArere Sarsieuss Paves, fat. ay Jae 


71200000 


71210000 
71220000 


74230000 


71240000 


71250000 


71260000 
71270000 
71280000 


71290000 


71300000 


71310000 
74320000 | 
71330000 


71340000 


74350000 


743460000 


71370000 
74380000 
‘71390000 


71400000 


. 72410000 
71420000 
71430000 

. 71440000... 


71450000 
71460000 


74470000 

‘71480000 
71490000 
_ 74590000 


71510000 
71820000 


71530000. 


74540000 


71550000 
71360000 
71570000 


71580000 


71890000 
71600000 
71610000 

-71620000_ 
71630000 
71640000 


71650000 


- 71660000 


71670000 


71700000 


_ 71710000 
- 71720000_ 
71730000 
71740000 


71750000 
71760000 


MOVEC 120" TSF IRSTCHARCSTV 9» 
BUFOUTC# I] s124T)3 
WRITECPRINT st 7e2BUFOUTC#) )3 
STVeS ¢ STV.S + 120 ¢ T3 
- STVeCH « STV, CH * 120 = 73 
WHILE STV.S 2 132 DO 
BEGIN MOVEC1 32*F IRSTCHARCSTV)» 
BUFOUTE#320)3 
WRITECPRINTS 179 BUFOUTE#) )5 
STV,S © STV,Se1323 
STV,CH ¢« STV. CH + 1323 
END; 
CLEARCBUFOUT*17)3 
MOVECSTV, SePIRSTCHARCSTV)sBUFOUT( #12093 
MVCLSQUOTEs 7» BUFOUTLCSTV.S) NIP CSTV.S)4C)3 
WRITECPRINTs17*/BUFOUTC #393 
‘ENDS 
ENDS” 


MESSAGEOCTOS 


FOR 1 * O STEP 4 WHILE I $ STRMAX AND USEDSTEIY DO 
FOR J-« 0 STEP 1 UNTIL STWMAX DO 
Ye (STN © NAMTABLOECIeJ3),01%2] = 3 THEN 
BEGIN SN & MINCSTN,S263)3 
oT & MAX CSN4#3"SN.(46221,8)3 
Th & VALTABLE LTeJT LINK 
WRITECBUFOUTE #1 oF TRACEL# T»DIGITSCI1) 01193 
MVCSNeFIRSTCHARCSTN} sBUFOQUTC#31,3)3 
— WRITECPRINTs172BUFOUTE*))3 
ENO? -. 
WRITETIME(C020)3 


END STRINGDUMP3 | 


TTT ETT ETERS CILULETEI LATTER ULI ELLE LLL 
Reta eee we SYNTAXPRR eee e eRe aE ae Rae a eR iE kd hk hk 
PROCEDURE SYNTAXERR(NsP)3 VALUE NoP3 INTEGER NoP3 

BEGIN 

DEFINE OUMMY = #3 


Poe P MOD FIELOSIZEs 


IF p > 6 THEN 

BEGIN 

CLEARCBUFOUTS17)4 
MOVECLS OMARKs 7*#BUFOUTCPWI9P,C#8)3 
WRITE CPRINTs 17 *BUFQUTE #393 

ENDS 

WRITE CPRINTsMESSAGEEN}] 93 

PTR «© MARKER + 83 
STORECHARS(1e"x%97)3 


MESSAGES « MESSAGES + 43 
ERRORS « ERRORS + 43 

—- -FA1680000 | 
71690000 


END SYNTAXERRS | 
Ridecusa sGUNTAVERR E+ 4008 bebs4oe4 Nae eh oadbsne thes Va (auntaiesus sa unseaenes 
Reka e eee TEMP CEL eee TEE eee E NK EEE ee Re EE ee ee ek he 


% TEMPCELL PRODUCES A TEMPORARY CELL IN THE SYMBOL TABLE, 


® THIS CELL CAN GENERALLY BE ASSUMED TO BFE GONE AFTER THE END OF AN 
% INSTRUCTION, C€THIS IS ACTUALLY NOT ALWAYS TRUE» BUT IT IS RATHER 


SZ DIFFICULT TO PREDICT WHEN A CELL WILL STAY ARQUND LONGERe) SEE ALSO 


% THE PROCEDURE NEWCELL FOR GETTING PERMANENT CELLS, 
ALPHA PROCEDURE TEMPCELL? 


} 


j Moore Hugiaes: Voce, Lat see 
@9eeeeere%ereeteeeeee#eeee#eeee ee 
H 
ey : . 2 : ¥ deatctctte, aoe ae i } Lh thas ep PES : . ss 
i i 5 : i * i Hl i : 2 i Q : ‘ 


71770000 


72130000. 


72140000 
72130000 


.. 72160000.. 


72170000 
72190000 


72190000 | 


72200000 
72210000 


... 72220000. 
72230000 


72240000 


72250000 | 


72260000 
72270000 


72280000 


72290000 
72300000 
72310000 


72320000 
72330000 


INTEGER STs Ie V3 


BEGIN I 
71760000 LABEL FAIL» RETURN: 
71790000 DEFINE ROWSTEMPROWES 
71800000 & 
71810000 % IF INFORM THEN INFORMIC7sROW)3 
71820000 ST « NEXTCELLEROWS 
74630000 IF ST # 0 THEN 
71840000 BEGIN 
71850000 FOR ROW « O STEP 1 WHILE ST = 0 pO 
71860000 | trp ROW > 45 THEN GO TO FAIL ELSE 
71870000 te USEOSTCROWI 
71880000. THEN ST © NEXTCELLCROW) 
71890000. ELSE BEGIN NEWSTROWCROW)3 
71900000 ST ; 0 & ROW CONCSTR: 
74940000 END 
71920000 ROW « ROW ae % THE "STEP" WAS EXECUTED ONE TIME TOO MANY, 
71930000 ENDS 
- - 71940000 NEXTCELLEROW) « NAME CST) eLINK? 
71930000 IF CreTeMPLISTCROW]) = 6 THEN 
71960000 BEGIN TEMPLISTCROW] © ST3 
71970000 NAMEPST] ¢€ 0 & ST CLINK} 
_..71980000 END ELSE. 
~ 71990000 BEGIN J « NAMECT] aL INK? 
72000000 NAMECTI.LINK © ST3 
72010000 —s-NAMETST) ¢ 0: & J CLINK3 
72020000 ENDS 
72030000 VALUCST] « 03 
72040000 TEMPCELL « ST3 
72080000 % IF USEDCELLEROW] < ST THEN USEDCELLEROW) « ST 
#2060000 GO TO RETURNS 
72070000 FATL: — 
72080000 MESSAGEO(14)3 
72090000 MESSAGETTOC14)3 
_ 72100000 . WRITE CPRINTsMESSAGELII)3 
72110000 DEATH « TRUES 
72120000 RETURNE . 


% IF INFORM THEN INFORMIACOsROWsST)3 
END TEMPCEL3 


Bion TEMP CE II IO IGT IOI III IODIDE I i ii obi ti hit & 
Bae eee we TEMPVAL He RE eRe RHEE e ea ee EEE EER EERE RE RK Re 
% TEMPVAL PRODUCES A TEMPORARY SYMB TABLE CELL WHOSE VALUE IS TKE 

% STRING REPRESENTATION OF THE INTEGER fo 

ALPHA PROCEDURE TEMPVALCID3 

VALUE 13 INTEGER 13 

BEGIN ALPHA ARRAY NUMCO#1)3 

ALEHA AAs. AB}. INTEGER J} 


WRITECNUMC# 2 9F 1160193 


Jo® 16 = SKIPCHARC™ "sNUM[0},092 
TEMPVAL «© AA © TEMPCELL3 


AB ¢ STRING(JsAA)3 
MVC JeNUMCOTs16"JsDATALAB Re AB LWIPAB,C IS 
VALTABLEAA.STReAAsSTW) © ABS 


END TEMPVAL3 
Rew e awe eT EOMPVAL Re MONEE EERE TREE TEER ERR A ee ee Re 


Rees meee eTRACERCTCALL wee ke eee RRR RENEE EEN aR EE RK 


BOOLEAN PROCEDURE TRACEFCTCALLCF)3 


@® ee e6e¢eeeeeeeeese # @ @ @ @® @ @# @® @® @ @ 


& ) @ 


foivtis Gusiness Forms, lac. sy Baby, 
as = ot : 


72340000 


72350000 
72360000 


_ 72370000. 


72380000 
72390000 
72400000 
72410000 
72420000 
72430000 
72440000 
72480000 


72460000 — 
72470000 


72480000 


72490000. 


72500000 


72510000 
72820000. 


72530000 
72540000 
72850000 
72560000 
72570000 


72580000 | 


72590000 
72600000 


72640000 | 


72620000 
72630000 


72640000 


72650000 
72660000 


22670000 | 
72680000 


72690000 
72700000 


72710000 


72720000 


_2...72730000 


72740000 


72750000 | 
72760000. 


72770000 


72780000 


72790000 
72800000 


72810000 


72820000 


72830000 
72840000 


72850000 | 


72860000 


72870000 


72880000 
72890000 
72900000 


VALUE FS 
INTEGER F3 & SYMBOL TABLE LOC OF FUNCTION 
BEGIN 
LABEL FAILs FIN; 


ALPHA FCTNs Flos PV3 


INTEGER Ie Je SIZEe Pe PSs PCs PR3 
DEFINE WRITERECORD © IF WRITEBUFFCBUFOUT*P»SIZE) THEN GO TO FAIL #3 
% - 

FCTN © NAMECFI3 

FIO + TOCFI3 


Tf FIO,1TOTYPE = 2 THEN % OUTPUT TO FILE« 


BEGIN 
UNIT © FIOSFILNOS 
SIZE © INSIZELUNITIS 
I & MINCO32FCTN,S)3 
WRITE CBUFOUTE * Je F TRACEFCTCALL#® INSTNOSI 3 
MVCTs FIRSTCHARCFCTN) @BUFOUTC# 348) 
Poe. + BB 
te SP <¢ MKS THEN P « P + 1 ELSE 
FOR r ¢ MKS STEP 1 WHILE I < SP nO 
BEGIN % MOVE PARAM INTO BUFOUTC#T? 
‘fF Pep+t 2 SIZE THEN WRITERECORDS 
MVC 1s QUOTE» 7sBUFOUTCPW1eP eC D3 
Pie Po + 43 
Py @ VALUCPSTCIII3 
PR ¢ PVR} 
PS « PV,S3 
Pe ¢ PV.CHS 
WHILE PS+#P.2 SIZE DO 
BEGIN % MOVE IN PART OF PARAM, AND WRITE? 
If P < SIZE THEN 
BEGIN 
MOVECSIZE@P sDATALCPRsePC WI) ePCeCeBUFOUTIP.WI9P,C)3 
PS ¢ PS © SIZE + P3 
a ¢ PC + SIZE © Ps 
EN 
“WRITERECORDS 
END} . 
MOVE CPSeDATALPRsPCWIePC.C*eBUFOUTEPWI9P,C)3 
Pie P + PS} 
If P+1 2 SIZE THEN WRITERECORD? 
MVC1sQUOTEs 7#BUFOUTEP, WieP C03 
IF (PeP41)#% 2 SIZE THEN WRITERECORD3 
MVC 4eCOMMAs 7» BUFOUTEP« aW]eP e093 
% CHANGE LAST "es" TO "94% 
Ve ee ee 
MV CLS ARs 7eBUFOUTER, WJeP.C)3 
WRITERECORDS fe 
TRACEFETCALL. “¢@ TRUES 
GO To FINS 
END FILE OUTPUT ELSE 
% CALL TRACING FUNCTIONS 
3% NOT YET IMPLEMENTED, 
FAILS 
TRACEFCTCALL © FALSE3 
FING 


oy ‘ : : : Bo i : 
f é fant i : ores 5 a 1 t v i wee A i # 


e 


: fAceco Business Forgas, lat. oy pea 
PEI : aes : : : i fhacuuny tas ; bes atts ethics : 7 
H ; ae ; i : i : i : : : ae : : : 


72910000 
72920000 
72930000 


72940000. 
72950000 - 
72960000 
72970000 - 


72980000 
72990000 


.-23000000 


73010000 


_ 73020000 
73030000 % 
73040000 


73050000 
__ 73060000 


73100000 
73110000 


73120000 
73130000 


73140000 


73180000 


73160000 
73170000 


“73190000. 
73200000” 
73210000 


73220000 
73230000 


73240000 | 
73250000. 
73260000 
73270000. 

73280000 
‘73290000 
73390000 
73310000 
_ 73320000. 
73330000 


73340000 
73350000 


. 73360000 | 
73370000.” 
73380000. ; 
- 73390000 


73400000 
73440000 


_73420000 


73430000 
73440000 
73450000 
73460000 
73470000 


END TRACEFCTGALLS 


Rte tee ewe ee WTRACER CT CALL te te te oe ie ae ie te ie ie ete ee OI ITO tt RI tok 
Kee eee eH TRACE EC TRE TURN tet te te te th ae det MMe ie de ie tet oe ete i teak ae ie i iii Ie a tO fk ki 
BOOLEAN PROCEDURE TRACEFCTRETURNCFsSUC)3 

VALUE Fe Succes 

INTEGER FS % SYMBOL: TABLE LOC QF- FUNCTION 

BOOLEAN sucs % TRUE IF SUCCEEDED, 

BEGIN | 

LABEL Falls FIN» FAUTS 


INTEGER Ie Pe Sve CV* RVe SIZES 


ALPHA FCTN» FIOS 
SCEINE WRITERECORD # IF WRITEBUFF (BUF OUT» Ps SIZE) THEN GO TO FAIL #3 


FCTN « NAMETFY3 
FIO «+ JOCFIS 


_IF FIOsTOTYPE = 2. THEN % OUTPUT TO FILE 
73070000 

73080000. 
73090000 


BEGIN 
UNIT © FIO. FILNOS 
SIZE ¢ IOSIZECUNITIS 
I © MINC63eFCTN#S)3 
WRITE CBUFOUTE* JF TRACEFCTRETs INSTNOsI)S 
MVCLS FIRSTCHARCECTNO#EUPOUTCSI 2801 
RP @ — +B 
WRITECTOPILECUNITIoFBL3 CRAILIFAILIS 
YF SUC THEN. 
BEGIN & WRITE OUT VALUEt 
P+ P + 63 
AA & VALUEPSTCMKS113 % = VALUE, 
SV. AA,8S3 ; 
CV © AAgCHS. 
Ry © AAeRS 
WHILE SVeP 2 SIZE DO 
BEGIN 
_MOVECSIZE*P*DATALRVeCV aN eCV eC eBUFOUTEP WI] ePaC)3 
CV © CV + SIZE * P3 
SV * SV = SIZE + P3 
WALTERESORE? 
ENDS 
Ip SV > 0 THEN 
_. MOVECSVsDATALERVeCVWI>CV,CeBUFOUTEP, WIsP, 2C)3 
Yr Pepe+Sy < SIZE THEN & ROOM FOR QUOTE 
- BEGIN MVCL1eQUOTEs7»BUFOUTEP eW)sP.0)3 
WRITECTOFILETUNITIENG),1023,8UFOUTE #3) CFAILAPAILI3 
END ELSE 
% PUT QUOTE ON NEXT LINES 
BEGIN BATT GETOT CELE TT Uy ee Soeur CUT br Era E AP ATS} 
COUVEL, GURRELTASURGUTESINOS) 
MV¢7eBLANKS*#O2BUFOUTE #19193 
WRITECTOPILECUNITICNO] sieBUFOUTC* I) EFAILSFAILJ3 


ENDS 
END SuCCESS CASE ELSE 
S WRITE "FAILED," 
BEGIN AA «& *"FAILED."3 
MVC7sAAs i sBUFOUTLP WIsP,C4#3)3 
WRITECTOFILECUNITICNO),1023-BUFOUTC#) )CFAILSFAILI3 
ENDS 
TRACEFCTRETURN * TRUES 


@®eee%eeoeee?eee @ @ @ @# @ @ @ @ @ @ @ 6 


re Burtness 


Sitiasy i See ara 
3 i : 2 : t : 
: ‘ ' : : : 


! 


I 
i 


i 
} 
: 
i 


i 


1 


73480000 | 


73490000 
73500000 


..73510000 | 


73520000 


73530000 
. 73540000 


73550000 
73560000 


_. 73370000 - 


73580000 
733590000 
73600000 


73610000 


73620000 


73630000. 
736480000 
73650000 


73660000 


73670000 


73680000 


73690000 
73700000 


73719000 


73720000 


73730000 
73740000 
73750000 


73760000 
73770000 | 
_ 73780000. 
73790000 


73800000 
73810000 


73820000 


73830000 


73840000 
73850000 


73860000 


73870000. 
73880000. 


73890000 


739900000 
73910000 


73920000 


-. ..£3930000 
73980000 


73950000 


739460000 


73970000 
73980000 


. .73990000 
74000000 


74010000 


74020000 


74030000 
74040000 


FING 
‘END TTINDEXS 


GO. TO FINS | 
END FILE OUTPUT ELSE 
® CALL TRACING FUNCTIONS 
3 6% NOT YET IMPLEMENTED, 
FAUT! 
FAIL! 

TRACEFCTRETURN * FALSE; 
FINe 


END TRACEFCTRETURNS 
ReeeeewewTRACEPCTRE TURNER HH e eRe REE R EE ek ee ee ek ee 


See T ETE T BEE DS CEEE LILI LEE TELL Tiiiiite 
% ST SHOULD BE A SYMBOL TABLE CELL POINTING TO A ‘TELETYPE ADDRESS IN 

% THE STANDARD FORM $7,U.>/<B.A,> THE VALUE RETURNED IS THE SUBSCRIPT 
% TO USE WITH rote) AND STATC#) FOR THIS TELETYPE, 

% IF THE TELETYPE ISNT ATTACHEDs 41 IS RETURNED, 

INTEGER PROCEDURE pTINGE NST 

VALUE. STi 


ALPHA STS 


BEGIN LABEL FAIL» FIN? 

INTEGER BAs TUs In Je Keo Neo IRe I1C3 

FINOUSERS3 

ST « VALUESTIS 

IR * ST.R3 IC © STaChs 

TU # BA ¢ O03 

Ne ST,S3. 

I © SCANCHARC"/", QMARK sDATALIRs IC WIeIC. €)3 

IF I 2 N OR CHARCDATACIR« IC WyeIC,C+l) # "/" THEN GO TO FAILS 


FOR J ¢ O STEP 4 WHILE J < I 00 


IF K « CHARCDATALIRG IC, yee? > 9 
THEN GO TO FAIL 
ELSE TU TUx41d + K3 
IF TU = 0 OR TU > 15 THEN GO TO FAIL; 
FOR J © Ie4 STEP 1 WHILE J «< N DOO 
IF K «© CHARCDATALIRs IC eWietCeC#l) > 9 
‘THEN GO TO FAIL 
ELSE BA « BAx10 + K3 
If BA > 15 THEN GO TO FAIL3 


BA « BA & TUL3914414)3 


Te #43 

FOR J ¢ 0 STEP 1 WHILE J < NUMUSERS AND I «< 0 D0 
IF BA = STATEJI0£6999] THEN T* Js. 

IF f 2 6 THEN. 

BEGIN TTINDEX 13 

60 To FIN3 

ENDS 

FAILS 

 OPTINDEX « rik. 


Rekawawe ae TT INDEX ee Ree eae a te ee eae Ee 
SEPALS SHSWRTTECULE SA CATR ESA A SEAN SEN SAGE EA EAE SEEN EN EAE SAECE CERES SAS EW 


BOOLEAN PROCEDURE WRLTEBUPFE CBUFDUTsPaS12€)) 


NVALUE SIZE3 

INTEGER Ps SIZES 
ARRAY BUFOUTEOI3 
BEGIN LABEL FAYLs FIN3 
WRITE CIOFILECUNIT oF BL 3 


! 


wot Birigagss Pierre, int. % catd 
: : eta : : : ? = : : : . i 
: : S : bie i i ! a i : H ! : : 
j i : i i : i : i : ee i : i #8 F 
i : i j : H i ae : 


74050000 


ANTE OE EEL UNI EI Cro eseeuperr ena? CFAILSFAIL 3 


74060000 P « 


74070000 


74080000 
74090000 


74100000 


TA110000 


74120000 
74130000 


74160000 


74470000 


74180000 
74190000 


74200000 
74210000 
74220000 
74230000. 


74240000 
74250000 
74260000 
74270000 
74280000 


74290000 


74300000 


74310000 
_.. 4320000 
74330000 
74340000 
74350000 


74360000 
74370000 


74380000 


74390000 


74400000 
74410000 | 


74420000 
74430000 


74440000 


74450000 


74860000 
74470000 


74480000 
74490000 


74890000. 
74510000 
74520000 
. 74530000_ 


74540000 
74550000 


74560000 


74570000 
74580000 
74390000 
74600000 


‘74640000 


CLEARCBUFOUTSSIZEW)3 

WRITEBUFF © FALSE} 

GO TO FINS 

FAYL? 
WRITEBUFF # TRUE: % TRUE IF GQUTPUT FAILS 
FING 

END. WRITEBUFFS 


Rake ree axWR ETE BUF Fe te tk ew ew ee ie eH ERE EEE HEHE REET KE REE ERK 


74140000 Sees 
74180000 


Baw ee W RY TED ATA 8 te te a tek oe a ie ea ICICI ICICI a I IOIOIOE tek 
% DUMP OF PROGRAM/DATA AREAS! 


‘PROCEQURE WRITEDATA3 


BEGIN INTEGER 13 

PROCEDURE WRITEDATAROQW(T)3 VALUE IJ INTEGER I3 
BEGIN INTEGER ys INTEGER ARRAY BUFFEREO31413 

J # 03 

WRITE CSUFFERC# I] sMESSAGELI37I)-193 


MOVECLOOSDATALTs * 120s BUF FERE *#2216)3 


MOVE C4eBLANKSs Os BUFFERC14354);3 
WRITE CPRINTsMESSAGEL 496123 
WRITE CPRINTsS 152QUFFER(C#))3 
FILL BUFFERT*) WITH " yt «3 
FOR J « J + 100 WHILE Jy < 8084 00 
BEGIN MOVECLOOsDATALCI os JeW)e Je CeBUFFERLC He 191693 
WRITECPRINTs 15eBUF FERC #195 
ENDS 
MOVE CBOsDATALIs 1012] s4eBUF FERED 43916)3 
FOR J © 100.108 DO MOVECBsBLANKS*OsBUFFER( JaW)eJeC)3 
WRITE CPRINTs 15, BUFFER(C +) 23 
WRITE CPRINT»MESSAGE(I6O1)3 
END WRITEDATAROWS 
WRITETIMECO20)3 
FOR } ¢ 0 STEP 1 ne 31 00 
BEGIN WRITECPRINTsMESSAGEL 35 Je TeUSEDROWE IT JeTsOPNTROEII)3 
TF USEDROWET] THEN WRITEDATAROWCI)3 
END} beak 
WRITETIME(0s@)3 


END WRITEDATAS | 


Sot WRT TED A TAR i Ri i IE RIS II IOI OI IOI IIIS IOI IGT I Ek 
Rewer ew ee WRITE INS Tt tok tO ii ak ii Ri i Ig Ri i ii II ii i a RIOR Iie totdok 


S WRITEINST PRINTS OUT THE CODE THAT HAS BEEN PRODUCED SO FAR 


% BY THE COMPILER, 
PROCEDURE WRITEINST3 


BEGIN DEFINE DUMMYs#3 . 
CLEARCBUFOUTE17293 ~ 

MOVECMINCPTR®MARKERs 132)» CODEC MARKER eW) sMARKER, C»oBUFOUTE#)20)3 
WRITECPRINTs17sBUFOUTC #123 


END WRITEINST? 


Zarate we eWRITE INS Teo 8 a tk ee ee i ee ei ee ee ae ee IK RRR eee EEK Oe 
Bate WRY TES Ti RI ITU I TEI TOR BOR TOT III IR TRS IO IR ik i Oiiok 


& SYMBOL TABLE DUMP ROUTINE: 


PROCEQURE WRITEST3 

BEGIN 

FORMAT FCXSsA2sXLel4e™ © MeQCAT Le XLeT2eXLo Tae Xo Tao Xiolasxis 
Tao" WoAQSPXL2eT ie X4eT3eX3eT3e KM old eXhel2)» 


- AES Busing:s Farad. inc. ty Fre was 
q i 
Pig oe 


74620000 


74630000 
74640000 
74650000 
74660000 
74670000 
74680000 


~ 74690000 


74700000 


..PA710000 
74720000 
74730000 

74790000 


74750000 
74760000 


_ 74770000 | 
74780000. 
74790000 | 
748900000. 


74810000 
74820000 


74830000 


74840000 
74850000 


- 74860000 | 


74870000 
74880000 


74890000 
74900000 
74910000 |. 
74920000 
74930000 
749480000 


74950000 


74960000 


74970000 
74980000 


74990000 


75000000 


75010000 


73020000 
73030000 


790460000 


75050000 
75060000 
73070000 


78080000 
78090000 
75100000, 


73110000 
73120000 
73130000 


75140000 | 
75150000 


75160000 


“75170000 


75180000 


FUR? wan'y ods ONANTABL ES TB0"6 8)" KL Oe VAL TABLET, 120%e 01") x2Po 
"TOUSE FILNO CYCLE OVFL IOTYPE")>» 
FOC NEXTCELLE "sl 29"] = "sAQe"%% TEMPLISTE"sla.") = "sA2)3 
INTEGER Ie Je K3 


“ALPHA Ls 


WRITECPRINTCI1)3 
WRITETIME(Os0)3. 
FOR 1 + 0 STEP 4 UNTIL STRMAX DO IF USFDOSTLI] THEN 
BEGIN 
WRITECPRINTsF2eTeNEXTCELLOE Y]s Te TEMPLISTEII D3 
WRITECPRINTsFislely3 
FOR kK + 0 STEP 1 UNTIL STWMAX 00 
WRITECPRINTSFeCK&l CONCSTRIeKeFOR L e& 
NAMTABLETsK]sVALTABLEIsK) po 
cL, fisids 
Lafetile 
ao aC3tids 
LelGtiis 
i .05t4)> 
Le ~C988)2 
Le »Ss 
ba Re 
LaCH)s 
CK&I CONCSTR)>» 
FOR L « TOTABLEIZK] pO 
CL, 1QUSE» 
Le TFILNOs 
be CYCLES 
LeOVFLe 
LeIOTYPEI)3 


A eee ee 
WRITETIME(O8)3 


ENO WRITEST; 


Ree tee dee WRT TES Tot ie ie ae ie de de i teak ae ie i ai Wii ek kt i i ke tk ike ik eh ee 


Bete eee WRITES TACK tet a deta eat NO ie a tei WO IOI IG OIOIOII IOI IIR i i tI OI RE toi 


% WRITESTACKCN) PRINTS OUT THE CONTENTS OF THE STACKe FROM WORD 0 
% TO WORD N, N SHOULD BE $s STACKSIZE, 

PROCENURE WRITESTACK(NDS 

VALUE N3 , 

INTEGER NZ) ie 

BEGIN INTEGER 13. 

WRITECPRINTsFSTACKHEAD D3 


FOR f « O STEP 1 UNTIL N 00 


WRITECPRINTsFSTACKENTRY 2 
Ts 
PrYPELIIs | 
PSTEDVs 
 PNAMECT I». 
 BLOCET) «Ss PLOCEI), Re PLOCCI].CHs 
“ PSIZELI}» 
PPOINTCI 3.» 
CPMINLEFTCI Js 
-PBACKEI1)3 
END WRITESTACKS 


SedeeeaeaWRETESTACK REO AHeNes enna teeH RAH EH NAAN EERE ERE EROR RANE RE RHEE REE EES 


OR fetta WROD TET ME a ie te Oa iI III RII IOI IOR IO tk iii tok 


% F YS NO LONGER IN USE HERE, 


i : : : Bos ee : } : : 4 ‘ : ; 


° 


phot “hetiness formas, inc, ss psaee 
@eeeeeeee@e¢?@e@e00ee080 e080 @ @¢@ 80 @ @ 
: pega : oe ae cued wae be a : ' 4 
} eet : : a i i oe : ee | : 


75190000 PROCEDURE ARITETINECF NOI VALUE FaNs INTEGER Fan} 


75200000 BEGIN REAL Ts TS3 
75210000 INTEGER THs TM; 


75220000 T « TIMEC¢L) / 603 


75230000 TH. ¢ ENTIERCT / 360033 —. 
73240000 TM ¢ ENTIERCCT = TH xX 3600) / 6093 


- 73250000 TS 
75260000 IF 


75270000 


75280000 IF. 
73290000 


75300000 
75310000 


~ 75320000 


75330000 


75340000 


75380000 . 
75360000 
_75370000 
75380000 


75390000 IF 
75400000 
"75410000 IF 
75420000 | 
73430000. 


¢ T @ TH x 3600 = TM x 603 

N £0 THEN 
WRITECPRINTSFTIMECOTsTIMEC 2/602 TIMEC3)/60) ELSE 
N.S 4. THEN 7 
BEGIN ALPHA De Ms Ys X3 ALPHA ARRAY MMC134213 


X% @ DATES. 


Moe X,fi95] « 10 + X,f686)3 
D ® Xef1836) x 10 4 X.0241613 
Y © X,£36%1213 


PILL: MMCad WITH 


"JAN TFEB TS "MARS TAPRISMAYI SM UUN, 
MULT, "AUG" s "SEP 2"OCT*s "NOV" S "DEC? 


ee CE eT EE Teens Onn EES 1 EDEN MCMVe te Nc nats! 


ENO ELSE 
N € 3 THEN 


WRITECPRINTSFTIMECNI] +THeTMsTS) ELSE | 


N-$ § THEN | 
WRITE CPRINTSFTIMELN}s THe TMs TS*#DIGITSCLEVEL) »LEVEL? 
DIGITSCINSTNO)sINSTNO)D3S 


75440000 END WRITETIMES 

TSESOOOG Sawa wea weWRETE TIME © eee Re Re i ee ea ee ee eR Eee 
75 660000 oe tei te tei te tte II IOI OI III I III III I I III III IIGIOIOIUISIIIOIOIUIDIGI I I IOI ito 
75470000 % END OF PROCEDURE DECLARATIONS 
75480000 BEGIN COMMENT INITIALIZATIONS 

75490000 ALPHA ARRAY USERS(O#3193 


75500000 & 
75510000 % B5500 CHARACTER SETS 

73520000 ¥ 0 1 2 3 4 5 6 7 8 9 
75530000 ~~ # @ QMARK ! > > + oA B C 
78540000 ¥ ~~ op E F G H I ; t g ‘ 
75550000 X& =< « ear K L M N 0 P 
75560000 & @ OR $ * . ) ; $ BLANK / 
75570000 % § T U V r x Y z , % 
75590000 ¥ oo #_ es nee 

75590000 & : 


75600000 FILL CONVERTVALE#) WITH 

75610000 OMe MEM MDM MAM ANAM ENSMMEMs M7 ANAM, HOM, 
75620000 «Mah y Hts gM Hes MZME HTH MEMS MAM ANAM HCH, 
75630000 WH, new, wre, tHE, Ph aN TN gh, Mera, not, 


75640000 12 MIM e1Se MIAME MLS HMMSHNT HOM, HPI, 
TEBSQONO:.  . MOMS ERM MEM, THM AMR DTD, 125 Nala t Manse, 
(75660000 MSH eH TE MUME MVR THM TXT AMY MS NZ Mg Hel omens M 
75670000 = 3%5420 120 MANE 


75680000 ¥& 

75690000 % 

75700000 FILL CHARTYPECw] WITH 

75710000 35 39 3s 3 39 3s 32 39 32 3» 

75720000 Or Of 439 Gs OF OF 409 34 Je 38 

73730000 30 32 39 3s Je 39 3 Os Or Ses 

737480000 Os 29 105 35 34 39 39 39 39 38 

75750000 30 35 Be Te 195 65 14) OF te 125 


en 6 * “ 


Mogre Business Fortis, bic. 3% Paes 
hos aia: SURE Dy ot aes 7 i : ples ig ‘ Aer : : i i 


i 
i 
| 
{ 
j 
i 


78760000. 


75770000 
75780000 


73790000 __ 


75800000 
75810000 


_ 75820000 


75830000 
73840000 


_..75850000 


73860000 


75870000 
75880000 


75890000 


75900000 


75910000 
75920000 
75930000 
75940000 
75980000 


75960000 


__78970000 


75980000 


75990000 | 
76000000 | 


76010000 
76020000 


_ 76030000 
76040000 


76050000 


- 76060000 


76070000 
76080000 
76090000 


76100000 | 


76110000 


76120000 
76130000 


76140000 


76150000 


76160000 


76170000 | 
76180000 
76190000 


76200000 
76210000 


76220000 | 
~ 76230000 
76240000 | 
76280000 


76260000 
76270000 


76280000 | 
76290000 | 
76300000 
76310000 


76320000 


eee iw * ~ 


3s 39 39 32 38 32 32 3 {le O» 
Oe 2s OO» 43 

b 4 

FILL DOTTYPEEL +] WITH 


O» O» O» O» OF O» Or OF On OO 
Or Oe OF QO» OF Or 29 OF Qe Of 
Os O» O» O» OF Or Or OF OF O» 
Or Os Be Os O» OF Os fF Os Os 
Os Of Os 2s 22 Os On Or On 2B 
32 OF Of O» OF QO» Qe OF OF OF. 
Os Os OF Of 
% VALUES FOR DOTTYPE! 
% 0 ERROR 
% 4 GN ; 
x 2 a+? ome g Xe aft gt 
% 3.8 
x 
FILL OPLEVELC#) WITH 
On Op O» Or Os Ov Os Os Or O- 
Or Os Os Os Ov OF {% OF Oe Os 
Or Os Op Oe Os Or On Ds Os Oe 
Or Op 32 O» Os Or Ov Os Os Os 
Os Os Os 4p 29 Ov Oo Oe On Ba 
Os — rd Os Os Or Os Os Os OO» 
: O» » O83 ta 
FILL uneosts) WITH 


TUNANCHOR™s"QUNDUMP “s"INTEGERT™s"RUNCATIONs"*NDISK IN,» 
_ NFORMSILE's "NCENDFRE*s"TURNDATA™ s"COMIORUL "s "ESPROCES"s 
MSAVERELE's "ASEPURGEs "TELETYPE", "DE BUGRUN's"ERRDUMPT", 
TRUNCATED" 2 "VERFLOWQ"s "UOTEQMAR™ » "KARROWRE s"ADPRINTP®» 
MUNCHLOOK™s "SYSPOTCA" s "RONEWDIS" p"K "3 
FILL MNEMONICLOs*} WITH 
6s 
MONT SU TOMe "BY STATI SNING SNOPES 
FILL MNEMONTCE1is*) WITH 


2s 
“FROM Ss" TON} 


FILL eon nelciae ee: WITH Ov 


"“DERBUG™»s 
PCO, 
WLIST"»s 
“MUNL IST!» 
MPUNCHM ss 
WEJECT's 
“SPACE s 
WWIOTH' » 
woe, 
3600" 
—"™B5800"s 
“DEFINE, 
WWATT" » 
ee ah hal 
“SIZE, 
“ASET Hs 
LIBRARY. 
"LOAD" + 
“COMPILE s 


«. 


% @ @ 6¢@ 8 @ @ 


e 


Pade, Al anaes ees eis 
a 3 Posie ite Fi arene! bor vets y ; feet y oor $ i fs 
: poy j : Sa DAs a4 : : : i be : : 


7 


76330000 


76340000 
76350000 


76360000 


76370000 
76380000 


_ 76390000 


76400000 
76410000 


764620000. 
- 76430000 


76aqg0000 


764680000. 


76460000 
76470000 


76480000. 
76490000 
76500000 
_.76510000 _ 


76520000 
76530000 


_ 76540000 


76550000 
76560000 
76870000 


76580000 


76590000 


76600000 
76610000 


76620000 


76630000 


76640000 
76650000 


- 76660000. 


76670000. 


76680000 
76690000 % 


76700000 
76710000 


_.... 76720000. 

76730000 
cS 767480000. 
76780000 - 


76760000 
76770000 


76780000. 
76790000. 
76800000. 
76810000. 


76820000 
76830000 


. 76840000. 


76850000 
76860000 


76870000 
76880000 


76890000 


“INFORM >» 

"STLENCE"S 
jae INTRINSFCTL3s*] WITH 
"EQ", w NEM st LT ee LEM a Me GT ee GEM eMPOP "EOF NG 
“ris INTRINSNDXE 3s *] WITH 

9s 249 199 £69 152 145 25 83 


FILL INTRINSPCTE£4s*) WITH 


17» 
# NUM" » “PUSH » "PAGE" >» WSTZE*e MONE, 
“MDUMP* SY DATEe "TRIM es "TIME, 
MEILE se (LOOK WAIT 2 "FILL 2 "USER » 
 SSEEK* ss "COPY" 
FILL INTRINSNOXC4s*] WITH 
Q2r 269 2h» 302 209 7s As 362 325 
122 185 39% 13% 425 435 483 
FILL. INTRINSFCTES##] WITH 
109. 
"SPACE » MUNEQL™e"TRACE"s "CLOSE™*s"*RULES"» 
_  NEEVEL Met OPSYN TS "CALLE es RANF*s "CLEARS 3 
FILL INTRINSNDX(5e*) WITH 
Bir 385 465 35 299 172 23s 25 50, 543 


FIC INTRINSFCTL6s*). WITH 
Aas 


" REMOR"» ANCHOR» "UNANCH"s "EQUALS" >» "DEFINE, 
MDETACH' s"TRACEF™s "REWIND Te "TRACEL se 9STATUS, 
TRACES", "RECORD™s "ASSIGN » "SEARCH" 3 
FILL INTRINSNDOX£69*) WITH 
27s 12 379 109 Se Ga 34e 28 35% St» 

“335 455 4B, 493 | 
FILL. INTRINSFCTE7s*] WITH 
GaMEXECUTE*s "COMPILE™® "SUSPEND" "RELEASE" S 
FILL INTRINSNDXE72*) WITH 

Lis Os 402 443 
FILL MONTHSE*) WITH 342289312302310308314 
IF CCTEMPOTIME CO) )«C2426) + TEMP sf18%6) 
-MONTHS£2] © 293— 


aR aR Be 


RANONO « 83886073 .% INITIALIZE RANDOM NUMBER GENERATOR 
CRLF «© “Seems 
ARROW © "#3 SLASH © "/™3 


EQSIGN « fay. 


QMARK © 123 QUOTE «© """3 BLANK « " on COLON © tH"; 
STAR © "#3 COMMA @ "9%3 

STOPPER © QUOTE & QMARKE3614216] & BLANKL302423633 | 
BLANKS « "3% MOVEC4sBLANKSs4sBLANKS,0)3 
TEENYNEG © REAL (NOT FALSE)3 

ANCHORMODE « 23. 

TRACEALL © BOOLEAN (COMMON, (472113 

DUMPALL © BOOLPANCCOMMON] (4621393 

SYSTEMBEBUGGING * BOOLEANCCOMMON* (4581193 
USEDROWFO) « TRUE; 

EXECUTE « TRUES 

FIELOSIZE ¢ 723 

WATTTIMFE « 480003 % 5 MINUTES 

FINDUSERSS % LOCATE ATTACHED TELETYPES 


# ae rT aw 


on > 


- 4 * 


® @® @ @ @ @ @ @©——(.H—mUmUMmUCOHUCOClCUO CU. 


Astere Gersiaags Poenis. tne. sy peace 
@®eeee%#8eeeeeee#ee@eeee@ee ® 


«+ be me. 


76910000 
76920000 


76930000 


76940000 
76950000 
76960000 


76980000 


76990000 
77000000 


77010000 


77040000 
77050000 
77060000 


77070000 
77080000 


77090000 
77100000 


77110000 


77120000 
77430000 


77140000 


77180000 


77160000 
77170000 


77180000 


77190000 
77200000 


77210000 


77220000 


77230000 


77240000 


77280000 
77260000. 
77270000 


77280000 


77290000. 


77300000 


77310000. 
77320000. 


77330000 
77340000 


77350000 
77360000 


70000 


PASS. 


"77390000 


77400000 


77460000 


76970000 


77020000 | 
77030000 


4F « afro 


76900000 IF gATAcoMr 1 THEN. 


IF NUMUSERS = 1 THEN PROGRAMFROMREMOTE « TRUES 
FOR USER + © STEP 1 UNTIL NUMUSERS#=1 DO 


Sir UR COCHR ITEC TFET THELLORNERS LOND) 

Tf OUTPUT THEN; 

tf NOT PROGRAMFROMREMOTE THEN 
BEGIN WRITECOCWRITEL#), FFROMREMOTE »12)3 
IF OUTPUT THEN IF INPUT THEN 


BEGIN 
WHILE JeCHARCDCREADC*] eSKIPCHARC™ “sDCREADEW]s0))2"¥" 
AND JO OPN® 00 
BEGIN WRITECDCWRITECe¥IJe.FYESORNO)3 
IF OUTPUT THEN? 
IF INPUT THEN; 
ENDS 
IF Jos "Y" THEN 
BEGIN PROGRAMFROMREMOTE « TRUES 
MAINUSER © USER; 
END ELSE 


BEGIN MVC3,CRLF sSeDCWRITELC#320)3 


IF QUTPUT THENS 
END 


ENDS 
END} 


USER « MAINUSER3 

NDI : 

NOT PROGRAMFROMREMOTE THEN 

BEGIN. READCPROGRAMs10sBUFFER(*1)3 
BUFFERFULL « TRUE} 


WRITETIMECOs1)3 


LOADF « TRUES | 
LOADERCPROGRAM)3 

LOADF «© FALSE3 — 

IF PUNCHF THEN CLOSE (PUNCH) 


% 


WRITE CPRINTsFERRSsDIGITSCERRORS)*ERRORS)3 
WRITETIMECO,2)3 : | 
WRITETIMECO,0)3 
IF INFORM THEN 


sees TEALOOOO. - 
77430000. 
77440000 
“77450000 © 


BEGIN WRYTESTS 
WRITEDATA; 


exeture “THEN. 
BEGIN WRITETIMECOS3)3 
WRITE CPRINTs FASTERISKS)3 


_UNTERPRETERS 


essa@eore)) 
MESSAGETTIC14s INSTNOD3 7 
RESULT « FALSES 


w #4 


: eats § oe . : : : i : i ; ; ; \ : y : 
ah oe Roeee i : i : : : : ; : i i 


77470000 WRITE CPRINT*FASTERISKS)3 
77880000 WRITETIMECOSS)3 
77490000 END} 
__.77500000 GO TO ENDOFRUN} 
77510000 % 
77520000 % 
“77330000 END INITIALTZATIONS 
77540000 % 
77550000 ABORTION? ‘% FATAL SYSTEM ERROR, 
ce 27860000. MESSAGETTOC793 
77570000 RESULT © FALSES 
‘77580000 SYSTEMERROR «¢ TRUES 
77390000 %& 
77600000 ENDTERPRET! 
77610000 WRITE CPRINTsFASTERISKS)3$ 
77620000. WRITETIMECOsIF RESULT THEN 4 ELSE 593 
77630000 = IF RESULT THEN. MESSAGETTIC 23» INSTNO)3 
77640000 ENDOFRUNI 
77650000 BEGIN DEFINE DUMMY=#3 
77660000 IF NOT RESULT THEN NESSAGETTI(10sINSTNO)3 
77670000 IF TRACEALL THEN INFORM « TRUE3 
77680000 ss WRITETIMECO2093 
77690000 = WRITECPRINT»FRULES»RULESCO1)3 
77700000 IF DUMPALL THEN DMPST © DMPOATA « OMPSTR + TRUE? | 
77710000 — IF SYSTEMERROR THEN 


j 


77720000 BEGIN WRITECPRINTCOBLIJ»FBL)3 
77730000 FOR 1 * Oste223 DO WRITECPRINTONOJ*FSENDCOPY)3 
777480000 INFORM © TRUES 
77780000 ss WRITECPRINTCOBLI*FBL)3 
77760000 ‘ENDS. 
: 77770000 WRETECPRINTsFGCS+DIGITS(GCS)»GCSsDIGITSCGCTINECP)+20GCTIMECP, 
77780000 DIGITSCGCTIMEIO)+25GCTIMEIO)3 


77790000. “YF INFORM OR OMPST THEN WRITESTACKCSTACKSIZE)3 
77800000 fF INFORM OR OMPST THEN WRITEST? 
77810000 IF INFORM OR DMPDATA THEN WRITEDATAS 
77820000 | IF INFORM OR DMPSTR OR ne AND NOT RESULT) 
77830000 THEN | “STRINGDUMPCINSTNOD3$ 
77840000 END ENDOFRUN SEGMENTS | 
77850000 END ALGOL PROCEDURES? 
_ 77860000 END END END GLOBAL STREAM pRoeeGURES) 
77870000 BUG UIGISI GIG a IFIED ISITE SISIISISISISISI SITES SISSIES IIIS ISIE ISSO IDE I ie 
77880000 END PROGRAM, : 
99999999 ENDJEND. = —-—- LAST CARD ON OCRDING TAPE 


| LABEL OOOODOOOOPRNT 001771057USER@SITE 3 EXECUTE COPY /SITE | ; | coPY SITE 
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eecoeoeoweeoeenweeneeeweeeee ee 
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